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Sie erhalten Ihren »peeker« 


JE bei Ihrem Zeitschriftenhändler 
am Bahnhof 


3 bei allen Apple-Händlern 
3& und natürlich beim Verlag. 


Denn der sicherste Weg, keine Ausgabe 
des »peeker« zu versäumen, ist noch 
immer das Abonnement zum Jahresvor- 
zugspreis. Dabei sparen Sie bares Geld. 
Beachten Sie in diesem Zusammenhang 
unsere Anzeige auf Seite 9, oder rufen 
Sie uns an: 

Telefon 0 62 21/489-281 (Peeker-Leser- 
service). 
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Verteilung der Treueprämien 


Disk #25 (1/87) 
Maskengenerator-Module zu DB-Meister 


Disk #26 (2/87) 

Kompletter 6502-ProDOS-Assembler 
Dateipflege-Module zu DB-Meister 

Disk #27 (3/87) 

Sortier/Druck-Module zu DB-Meister 

(Ab Disk #28 Spezial-Module und Auswahl der 
Quellprogramme) 


Vorschau 


Neben den normalen Programmen sind für die 
nächsten Monate einige spezielle Leckerbissen 
in Vorbereitung, die wir an dieser Stelle bereits 
ankündigen möchten. Nachdem wir im letzten 
Jahr an die Fortsetzungsbezieher unserer Sam- 
meldisketten einen ausgewachsenen Apple- 
soft-Editor kostenlos verteilt haben, steht für 
eine der nächsten Disketten ein vollständiger 
ProDOS-Assembler für 6502/65C02 auf dem 
Programm, der hinsichtlich des Redigierkom- 
forts, der Verarbeitungsgeschwindigkeit und der 
sonstigen Leistungen den herkömmlichen 
Assembler (Big Mac usw.) keineswegs nach- 
steht, sondern sie sogar in vielen Features 
übertrifft. Außerdem können Sie Big-Mac- 
Quelltexte von den früheren Peeker-Sammel- 
disketten normalerweise fast unverändert as- 
semblieren. 

Darüber hinaus werden wir unseren treuen 
Forisetzungsbeziehern das Dateiverwaltungs- 
programm DB-Meister als kostenlose Zugabe 
zur Verfügung stellen, und zwar teilweise sogar 
in Quelltextform. Aus Platzgründen müssen die- 
se Programme jedoch leider auf mehrere Dis- 
ketten (ab Disk #25) verteilt werden, 

Beachten Sie bitte, daß der Assembler und der 
DB-Meister nicht auf den normalen Sammeldis- 
ketten für Einzelbezieher enthalten sein wer- 
den, denn diese Programme sind nur als Treue- 
prämien für Fortsetzungsbezieher gedacht. 
Wenn Sie also ohnehin einen Assembler oder 
ein Dateiverwaltungsprogramm kaufen wollten, 
können Sie als Fortsetzungsbezieher viel Geld 
sparen, Beispielsweise würden sich 6 Sammel- 
disketten ab Disk #25 auf nur DM 120,- belau- 
fen, während der DB-Meister allein DM 290,- 
kostet, 

In unserer Kompaktkurs-Reihe sind zwei Groß- 
beiträge in Arbeit. Der Kurs zu dem beliebten 


editorial 


GFABASIC beginnt mit diesem Heft. Übrigens 
hat der Firma GFA Systemtechnik unsere Auf- 
stellung des Befehlssatzes aus Heft 11/86 so 
gut gefallen, daß sie dort als Referenzkarte er- 
scheinen wird. GFABASIC ist auch über unse- 
ren Hüthig Software Service erhältlich, wobei 
wir an unsere GFABASIC-Käufer nach Ab- 
schluB des Kurses eine Atari-Sonderdiskette 
mit allen im Peeker veröffentlichen GFABASIC- 
Programmen sowie weiteren Utilities kostenlos 
verschicken werden. 

Als zweiter Kompaktkurs ist ein umfangreicher 
Zweiteiller über den 65816/65802-Prozessor 
unter besonderer Berücksichtigung des Apple 
IIgs vorgesehen, der auf die Februar- und März- 
ausgaben des Peekers verteilt werden wird. 
Damit Applesoft-Programmierer nicht zu kurz 
kommen, haben wir einige lupenreine BASIC- 
Programme eingeplant, beispielsweise in die- 
sem Heft das Shape-Entwicklungspaket. Im üb- 
rigen stehen wie bisher nützliche Assembler- 
und Pascal-Ütilities auf dem Programm. 
Apple-Il-Besitzer, die sich mit dem Gedanken 
tragen, den neuen Apple IIgs zu erwerben, 
müssen wir im Hinblick auf Ilgs-Programme 
einstweilen vertrösten. So war auf der jüngsten 
COMDEX-Messe — Bericht folgt im Februar- 
Heft — nicht einmal die Endversion von ProDOS 
16 zu sehen. Gerüchten zufolge soll die Platine 
wegen des 4-MHz-65816 noch einmal geändert 
werden. Deshalb werden sich die Erschei- 
nungstermine für viele der angekündigten App- 
le-IIgs-Programme um mehrere Monate ver- 
schieben. 


Flügen ER 


Ulrich Stiehl 
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Ein Shape- 


Entwicklungspaket 


für Grafik-Anfänger 


von Wolfgang Landgraf 


In Ergänzung zu dem Memory-Spiel mit 
der Apple-Maus („Mousory“) aus Peeker, 
7/86, S. 12ff., das insbesondere unter den 
jüngeren Peeker-Lesern viel Beachtung 
gefunden hat, wird nachfolgend ein leicht- 
verständliches Shape-Entwicklungspaket 
vorgestellt, das aus drei lupenreinen Ap- 
plesoft-Programm-Modulen besteht und 
beispielsweise für die Entwicklung eigener 
Mousory-Shapes verwendet werden kann. 
Besonderer Wert wird dabei auf die Doku- 
mentation der Programme durch kommen- 
tierte Variablenlisten gelegt. Die drei Mo- 
dule heißen 

TABLE.EDITOR — Table-Editor 
SHAPE.EDITOR — Shape-Editor 
SHAPE.CREATE — Shape-Creator 


I. Der Table-Editor 
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Programm zur Bearbeitung von Shapetabellen 


Dieses Programm hilft einem aus man- 
chen Schwierigkeiten heraus, vor denen 
man bisher bei der Erstellung von 
Shapetabellen steht. Benötigt man zum 
Beispiel nur je ein einziges Shape aus 
verschiedenen Tabellen, so ist man ge- 
zwungen, alle Tabellen an verschiedene 
Stellen zu laden, um dann umständlich 
durch Poken der unterschiedlichen An- 
fangsadressen an Speicherstelle 232 und 
233 den Zeiger auf den jeweiligen Tabel- 
lenbeginn einzustellen. Oder aber ein be- 
stimmtes Shape hat es einem so angetan, 
daß man es in eine seiner Tabellen ein- 
bauen will. Bisher mußte man sich eine 
Skizze erstellen und das Shape neu ein- 
geben - alles in allem ein großer Aufwand. 
Nachdem man dann endlich mit allem fer- 
tig war, stellte sich heraus, daß die Tabelle 
hätte größer sein können. Oder aber das 
erste Shape hätte besser an die letzte 
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Stelle gepaßt. Man müßte nun die Tabelle 
komplett neu definieren und mit allem von 
vorn beginnen, was unnötig zeitraubend 
ist. Mit dem Table-Editor kennt man diese 
Probleme nicht mehr. Dieses Programm 
bietet im einzelnen: 


1. Shapetabelle aus Einzelshapes er- 
stellen 

2. Shapetabelle bearbeiten 

3. Shapes aus ihrer Tabelle herauslösen 


Darüber hinaus ruft der Table-Editor das 
Programm Shape-Editor auf, mit dessen 
Hilfe Shapes punktweise geändert werden 
können, oder aber das Programm Shape- 
Creator — ein Tabelleneditor, mit dem 
Shapes erst dann abgespeichert werden, 
wenn man damit zufrieden ist. 

Der Table-Editor ist größtenteils menüge- 
steuert. Erklärungen sind auf dem Bild- 


schirm zu sehen. Eventuell auftretende 
Fehler beim Zugriff auf Disketten werden 
in einem Teil des Programms abgefangen. 
Sollte man ein Unterprogramm aus Verse- 
hen angewählt haben, so kann man mit 
dem Ausrufezeichen <!> zum vorherge- 
henden Programmteil zurückspringen. 

In den folgenden Abschnitten werden die 
einzelnen Programmpunkte ausführlicher 
besprochen. 


1. Shapetabelle aus Einzelshapes 


Zwei Möglichkeiten stehen zur Auswahl: 
Zum einen kann eine Tabelle komplett neu 
erstellt werden, zum anderen kann man an 
eine schon existierende Tabelle weitere 
Shapes anhängen. Sollte in dieser Tabelle 
kein Platz mehr sein, muß zuvor der Pro- 
grammpunkt „Shapetabelle editieren” ge- 
wählt werden. 
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1.1. Alte Tabelle editieren 

Zuerst wird nach dem Namen der zu bear- 
beitenden Tabelle gefragt und diese dann 
ab $6000 in den Speicher geladen. Sollte 
die gewählte Tabelle voll sein, kehrt das 
Programm automatisch zum Hauptmenü 
zurück. Ansonsten wird angezeigt, wievie- 
le Shapes noch Platz finden, und nun wird 
die Eingabe des Dateinamens des 
Shapes, welches an die Tabelle angehängt 
werden soll, erwartet. Das Shape wird ab 
$4000 geladen, auf dem Bildschirm ge- 
zeigt und dann eine Bestätigung der Wahl 
verlangt. Hat man die Frage bejaht, wird 
das Shape an die alte Tabelle angehängt. 
Danach kann man die erweiterte Tabelle 
auf Diskette abspeichern oder ein weiteres 
Shape anhängen. Der vergrößerten Tabel- 
le kann ein neuer Name gegeben werden, 
durch Betätigung der <Return>-Taste 
wird die Tabelle unter ihrem alten Namen 
auf Diskette geschrieben. 


1.2. Neue Tabelle erstellen 

Dieser Programmteil ist mit dem vorher 
besprochenen identisch, nur daß nicht 
nach einer alten Tabelle gefragt wird, son- 
dern nach der Anzahl von Shapes, die in 
der neuen Tabelle Platz finden sollen. Die 
Tabelle kann dann unter einem beliebigen 
Namen gespeichert werden. Dem gewähl- 
ten Namen wird zur Kenntlichmachung als 
Shapetabelle das Kürzel „ST.“ vorange- 
stellt; man kann also auch gefahrlos Zah- 
len als Namen wählen. 


1.3. Aufruf des Shape-Creator 
siehe unten 


2. Shapetabelle editieren 


Hier gibt es wiederum zwei Möglichkeiten: 
Zum einen kann eine beliebige Tabelle 
verlängert werden, zum anderen können 
Shapes In der Tabelle vertauscht werden. 


2.1. Tabelle verlängern 

Bedingt durch die „Anatomie“ der 
Shapetabellen (Abb. 1), kann eine volle 
Tabelle nicht ohne weiteres verlängert 
werden. Wie man es trotzdem schafft, wird 
darunter gezeigt. Der Ablauf ist Punkt 1.1 
zu entnehmen. Es wird nur gefragt, wie- 
viele Shapes angehängt werden sollen. 
Dann wird kontrolliert, ob die neue Anzahl 
größer als 255 ist. Nach erfolgter Manipu- 
lation kann die Tabelle auf Diskette ge- 
schrieben werden. Der Trick ist folgender: 
Für jedes neue Shape wird der Tabellen- 
beginn um 2 Bytes nach unten verscho- 
ben, die Abstände der einzelnen Shapes 
vom Tabellenanfang werden um die Zahl 
„Neue Shapes * 2“ erhöht und abschlie- 
Bend der Entfernungwert „Ende letztes 


Shape + 1“ als Anfangswert für das fol- 
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gende Shape an seinen Platz in der Tabel- 
le geschrieben. 


2.2. Shape-Folge ändern 

Eigentlich wird die Reihenfolge der 
Shapes innerhalb der Tabelle nicht richtig 
verändert, denn der Zeitaufwand dafür wä- 
re viel zu groß. Der Trick besteht vielmehr 
darin, die Shapezeiger am Anfang der Ta- 
belle miteinander zu vertauschen. Man 
sucht sich lediglich zwei Shapes heraus. 
Das Programm besorgt dann den Rest. Mit 
den Pfeiltasten wählt man die zu tauschen- 
den Shapes an, mit <Return> wird ange- 
nommen. Die Shapes werden zur Kontrol- 
le auf dem Bildschirm nebeneinander ge- 
zeigt. Sollte die gewählte Tabelle nur ein 
einziges Shape besitzen, so wird das Pro- 
gramm automatisch abgebrochen. Vor- 
sicht ist geboten, wenn dieser Programm- 
teil bei einer noch nicht vollständigen Ta- 
belle angewandt wird. Die meisten Shape- 
Programme, so auch das hier beschriebe- 
ne, nutzen die Abstandszeiger des ersten 
Shapes vom Tabellenanfang zur Feststel- 
lung der Tabellenkapazität nach der 
Formel: 

(Low-Byte + High-Byte x» 256)/2-2 

= Tabellenkapazität. 

Ist nun das erste Shape vertauscht wor- 
den, bevor die Tabelle fertiggestellt wurde, 
kommt es zu Schwierigkeiten bei der wei- 


‚teren Bearbeitung, die zum Verlust der 
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grammpunkt nur dann anzuwenden, wenn 
die Tabelle fertig ist und die Umstellung 
von Shapes den letzten Arbeitsgang dar- 
stellt. 





3. Einzelshapes erstellen 


Wer sich eine Bibliothek aus Einzelshapes 
zusammenstellen möchte, aus der ernach 
Lust und Laune neue Tabellen bauen 
kann, der wähle diesen Programmpunkt. 
Es spielt keine Rolle, wie groß das Shape 
ist und womit es erstellt wurde, denn das 
Programm tut seine Pflicht und trennt das 
auserwählte Shape säuberlich aus dem 
Tabellenverbund. 

Wie schon oben beschrieben, wird eine 
Tabelle in den Speicher geladen. Nun 
Kann man durch Betätigung der Pfeiltasten 
(<- und >) in der Tabelle blättern, bis man 
das Lieblings-Shape erspäht. Mit der 
<Return>-Taste wird das Shape sepa- 
riert. Es erscheint rechts neben dem Origi- 
nal zur Kontrolle und kann, unter Namens- 
gebung versteht sich, auf Diskette gesi- 
chert werden. Hier stellt das Programm 
automatisch „SH.“ für Shape voran, damit 
man es von einer Tabelle leicht unter- 
scheiden kann. 


Änderungsvorschläge 
Das Programm läuft unter DOS 3.3 und 
ProDOS. Wenn es unter ProDOS betrie- 


Tabellendaten führen können. Deshalb ben wird, sollte man den ProDOS-spezifi- 
sollte man sich merken, diesen Pro- schen Befehl „PREFIX/“ an den Pro- 
I; Verschiebung das Tabellsnanfangs 
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Abb. 1: Aufbau der Shapetabelle 


Neue Entfernung 1. sh. 1 >> Tabellenanf. 


Neue Entfernung 2.5h. <-> Tabellenanf. 







Platz für 
naues 
Shape 






grammbeginn setzen, um gefahrlos Dis- 
ketten wechseln zu können, ohne die Feh- 
lermeldung „PATH NOT FOUND“ zu ris- 
kieren. Der CATALOG-Befehl muß in CAT 
geändert werden. 

Wer möchte, kann das Programm leicht so 
modifizieren, daß es zwei Laufwerke un- 
terstützt. Um Konflikte mit der ersten Gra- 
fikseite zu vermeiden, soliten die REMs 
weggelassen werden. 


Tastenfunktionen 


<Return> Annahme der Wahl, Ende eines 


Programmteils 


< --> > = Shapetabelle hinauf 

< <— > = Shapetabelle hinunter 

<!> = Abbruch eines Programmteils 
bei Irrtum 

<?7> = Catalog der Diskette 


Kommentar zum Programm 


1808-1158 Zeige "Haupmenü' 


1169 Verteilen auf einzelne Pro- 
grammteile 

1178-1276 Unterprogramm zur Auswahl der 
Programmteile 

1289 Unterprogramm '"Shapetabelle 
erstellen" 

1299-1330 Zeige Menü "Shapetabelle 
erstellen" 


1349-1369 Verteiler für Untermenü 
1378-1459 Eingabe des Namens der zu 
erstellenden Tabelle 
1469-1588 Eingabe der Shapezahl bei 
neuer Tabelle , Vorbereitung 
des Tabellenanfangs 
Bestimmung des Anfangspunktes 
Shape Nummer 1 
152#-1568 Eingabe des anzuhängenden 
Einzelshäapes 
1578-1618 Einlesen der Shapebytes, 
Poken an neue Adresse 
Abfrage "Weitermachen ?" 


1518 


1628 


1638-178 Speichern der Tabelle 
'ST."xxxx auf Diskette 


1718 Unterprogramm "Shapetabelle 
editieren" 

1728-1758 Zeige Menü "Shapetabelle 
editieren" 


1766-1788 Verteiler für Untermenü 
1796-1829 Eingabe des Namens der zu 
editierenden Tabelle 
1836-1869 Auswertung der Shapezahl in 
der Tabelle 
Bestimmung der Tabellenlänge 
1878-1898 Abfrage "Wieviel Shapes 
hinzu?", Kontrolle, ob 
Shapezahl dann größer als 255 
1966-1948 Verlagerung des Tabellen- 
anfangs, Aktualisierung der 
Abstandswerte der einzelnen 
Shapes vom Tabellenanfang 
1956-1989 Bestimmung Endpunkt des 
letzten Shapes bzw. 
Anfangspunkt für das neues, 
darauffolgende Shape 
1999-2898 Unterprogramm "Shapes 
tauschen" 
Kontrolle, ob nur ein Shape 
2630-2980 Auswahl der zu tauschenden 
shapes 
2896-211d Tauschen der Anfangsbytes 
2129 Abfrage "Nochmal?" 
2138-2298 Speichern der Tabelle 
"ST,'"xxxx auf Diskette 
Unterprogramm "Einzelshape 
erstellen" 
2226-2278 Eingabe des Namens der zu 
ladenden Tabelle 


2219 


2280 Zeiger auf Tabellenanfang, 
Vorbereitung des Einzel- 
shapeanfangs 

2299-2398 Auswahl des Einzelshapes im 
Tabellenverbund 


2466-2479 Einlesen der Shapebytes, 
Poken an neue Adresse 

2486-2508 Abfrage, ob das Shape auf 
Diskette geschrieben 
werden soll 

251-2538 Speichern des Shapes 
"SN."xxxx auf Diskette 

2549-2570 Abfrage "Weitermachen?" 

2589 Unterprogramm "Einzelshapes 
editieren" 

2598-2668 Hier gehört der Aufruf für 
Shape-Editor hin 


2619 Unterprogramm "Shape.Creator" 


2626-2638 Hier gehört der Aufruf für 
Shape-Creator hin 

2649-2689 Catalog Unterprogramm 

2696-2718 Programmende 

2728-2748 Subroutine "Bildschirm 
löschen" 

2750-2818 Subroutine "Fehlerbehandlung" 


Variablenübersicht 


D$ = Ctri-D (DOS-Kommando) 
E$ = Eingabevariable 
FF = Errorflag, sorgt für Verteilung 


nach Fehlerroutine 
FH = Flag zur Unterscheidung Haupt-, 


Untermenü 

FM = Flag für Verteilung nach Catalog- 
routine 

HH = Hilfsflag im Unterprogramm Tabelle 
editieren 

HT = Horizontalposition Auswahloursor 

T = Schleifenvariable 

J = Wert des aktuellen Shapebytes 

N = Shapezahlvariable 

Nl = Aktuslle Shapenummer 

N(I}= l, und 2. Shape beim Tausch 

N$ = Eingabestring, Name Tabelle 
oder Shape 

N1$ = Aktueller Tabellennanme 

0$ = "t" Variable für Programmteil- 
abbruch 

SB = Beginn des aktuellen Shapes in 
der Tabelle 

SE = Ende des aktuellen Shapes in der 
Tabelle 

SL = Länge der zu editierenden Tabelle 

SZ = Momentane Zahl der Shapes in 
der Tabelle 

Si = High-Byte Shape-Anfang 

S2 = Low- Byte Shape-Anfang 

S3 = High-Byte Shape-Ende 

SA = Low- Byte Shape-Ende + 1 

TA = Tabellenanfang 

TB = Beginn des ersten Shapes in 
der Tabelle 

W1 = Low- Byte 1.Tauschshape 

W2 = High-Byte 1.Tauschshape 

W3 = Low- Byte 2.Tauschshape 

W4 = High-Byte 2.Tauschshape 





ll. Der Shape-Editor 


Programm zur punktweisen Änderung von Shapes 


Wer schon einmal ein Shape oder gar eine 
ganze Tabelle nur mit Hilfe von Bleistift, 
Papier und dem BASIC-Handbuch von 
Apple in seinen Computer eingegeben 
hat, weiß diverse auf dem Markt befindli- 
che Shapetable-Editierprogramme zu 
schätzen. Leider haben alle mir bekannten 
Programme einen gravierenden Nachteil: 
Ein einmal definiertes Shape kann nicht 
beliebig verändert werden, weil die Pro- 
gramme die eingebenen Cursorbewegun- 
gen und das Setzen von Punkten direkt in 
Zeichenvektoren umwandeln. Maximal der 
letzte gesetzte Punkt kann eventuell wie- 
der zurückgenommen werden. Es kann 
also passieren, daß ein oder mehrere aus 
Versehen doppelt definierte Punkte das 
Aussehen eines Shapes ruinieren, wenn 
man den XDRAW-Befehl anwendet. 


Der Startpunkt, von dem aus sich das 
Shape aufbaut, ist unveränderbar. 

Soll ein Shape spiegelbildlich dargestellt 
werden, bleibt einem nichts anderes übrig, 
als es neu zu definieren. 

Diese leidigen Probleme gehören mit 
Shape-Editor der Vergangenheit an. 


1. Vorbemerkung 


Das Programm läuft unter ProDOS und 
DOS 3.3. Änderungen des Programmes 
sind mit Vorsicht zu genießen. Da es näm- 
lich mit seinen Variablen so groß ist, daß 
es nicht mehr in den Bereich zwischen der 
normalen Startadresse $0800 und der er- 
sten Grafikseite als Arbeitsseite paßt, wird 
es in den Bereich zwischen $4000 und 
$5FFF geladen. Die Shapetabelle, aus der 


die zu bearbeitenden Shapes stammen, 
wird ab $6000 plaziert. Bei Änderungen im 
Programm, die zu einer Verlängerung füh- 
ren, kann es zu Konflikten mit dem Anfang 
der Shapetabelle kommen, d.h. die später 
eingeladene Tabelle löscht eventuell Teile 
des BASIC-Programms. Nun könnte man 
die Anfangsadresse der Shapetabelle wei- 
ter nach oben in den Speicher legen, aber 
dann gibt es bei sehr langen Tabellen 
Schwierigkeiten mit dem jeweils verwen- 
deten Betriebssystem. 


Unter ProDOS kann man Tabellen mit ei- 
ner Länge von maximal 13824 Bytes einla- 
den. Normales DOS 3.3 bietet denselben 
Platz. Ideal wäre es, den Shape-Editor un- 
ter einem in die Language-Card „gemov- 
ten“ DOS zu betreiben (s. Peeker, Heft 2/ 
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„peeker« schenkt Ihnen... 






















Ich habe den neuen Abonnenten geworben und er- 
halte kostenlos den Disk-Locher. 


Name, Vorname 
Straße, Postfach 
PLZ, Ort 


Datum, Unterschrift 


... den praktischen Disk-Locher mit dem Sie 
die Speicherkapazität Ihrer Disketten im Nu 


verdoppeln können! 


zur Post! 


ch bin der neue Abonennit, Bitte liefern Sie mir bis 
auf Widerruf, zumindest aber für 1 Jahr, »peeker« 
zum Jahresbezugspreis von DM 75,- (Ausland 
plus DM 20,- Porto) an folgende Anschrift: 


Name, Vorname 
Straße, Postfach 
PLZ, Ort _ 


Datum, Unterschrift 


Gewünschte Zahlungsweise 
U gegen Rechnung 
U bargeldios durch Bankeinzug 


Konto-Nr. Bankleitzahl 

| 1 
Geldinstitut 
Vertrauensgarantie: 
Diese Bestellung kann ich Innerhalb einer Woche 
bei Dr. Alfred Hüthig Verlag GmbH, Im Weiher 10, 
6900 Heidelberg 1 widerrufen. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung. Ich be- 
stätige die Kenntnisnahme mit meiner Unterschrift: 


2 Tintarschrift 


Überzeugen Sie jetzt einfach Ihre Freunde 

und Bekannten von den Vorzügen eines »peeker- 
Abonnements«. Sie bekommen als Dank für 
einen neuen Abonnenten diesen 
superpraktischen Disk-Locher! 


Füllen Sie den Bestellcoupon aus und ab 


EEE EEE Haug MESSER ding BBEEEE ERSee ee ME Ba REES HESSEN (EEE DEE BORD Eee DEE Mugen EEE MEAN MEER GEHE EEE GE i 
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Coupon ausschneiden und 
einsenden an: 


»peeker« 
Abonnementservice 


Im Weiher 10 
6900 Heidelberg 1 


PUBLIKATION 





a = Startpunkt 
Bais pi eltabel 


an ne $ a 
IKklerten £20@:61 
al = Shapezan 
44 = nicht benu 
64 = Abstand 1! 
aA = Abstand 1. 


Abb. 2: Beispiel-Shape 


86), da nun die Tabellen 25545 Bytes lang 
sein dürfen. 

Wer sich für ProDOS entscheidet, sollte 
den ProDOS-spezifischen Befehl „PRE- 
FIX/“ zur Abschaltung des Präfixes an den 
Anfang des Programmes setzen, damit die 
Disketten gewechselt werden können. 
Ebenso muß der „CATALOG"-Befehl in 
„CAT“ geändert werden. 

Der Shape-Editor läßt sich sehr gut für 
Animationen mit Shapes einsetzen, etwa 
um Bewegungen zu simulieren, wenn man 
das „Vorgänger-Shape“ einlädt, es verän- 
dert, abspeichert und dann die Einzelsha- 
pes in einer Tabelle zusammenfügt. Dies 
kann mit dem Table-Editor realisiert 
werden. 

Der Shape-Editor ist für Shapes in der 
Größe von 21 x 21 Bildpunkten konzi- 
piert. Der Startpunkt kann innerhalb dieser 
Matrix frei gewählt werden. 

Normalerweise wird das Programm vom 
Table-Editor aufgerufen; es ist aber auch 
allein lauffähig. Dann muß Zeile 2360 fol- 
gendermaßen geändert werden: 

2560. POKE 26.0 2END 


2. Programmablauf 


Zuerst wird nach dem Namen einer 
Shapetabelle gefragt, aus der das zu edi- 
tierende Shape stammt. Man kann aber 
ebensogut ein Einzelshape aufrufen. Mit 
den Pfeiltasten wählt man das Shape aus, 
mit <Return> wird das Shape übernom- 
men. Nach dem Aufbau des Bildschirms 
(kleiner Rahmen und großer Rahmen mit 
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Skala), kann das ausgewählte Shape mit 
den <I-J-K-M>-Tasten im kleinen Rah- 
men hin und her bewegt werden. Die Be- 
tatigung der <S>-Taste spiegelt das 
Shape, nochmaliger Druck auf <S> stellt 
den normalen Zustand wieder her. Das 
Shape im kleinen Rahmen ändert sich da- 
durch aber nicht, die Spiegelung kommt 
nur bei der Übernahme in den großen 
Rahmen zum Tragen. Zur Kontrolle wird 
die Bedeutung der jeweiligen Tasten im 
Textfenster wiedergeben, Die <P>- und 
<L>-Tasten haben noch keine Funktion. 
Die <Return>-Taste beendet den Pro- 
grammteil, d.h. alle Punkte, die sich inner- 
halb des kleinen Rahmens befinden, wer- 
den in den großen Rahmen überiragen. 
Nun baut sich vor den staunenden Augen 
die vergrößerte Version des Urshapes im 
Editierrahmen auf, je nach ausgewählter 
<S>-Funktion gespiegelt oder seiten- 
gleich. Ebenso wird ein Shape im Maßstab 
1:1 im kleinen Rahmen unten rechts ge- 
zeigt. Die Bewegungen des Editiercursors 
werden, wie oben schon erwähnt, mit <I- 
J-K-M> gesteuert. Ein Punkt wird mit 
<L> gelöscht und mit <P> gesetzt. Soll- 
te man einen nicht vorhandenen Punkt 
erneut löschen wollen, ignoriert das Pro- 
gramm den Tastendruck. Das gleiche gilt 
für das Setzen eines schon gezeichneten 
Punktes. Im kleinen Rahmen rechts kann 
man die Auswirkung auf das Shape direkt 
mitverfolgen. Mit <S> läßt sich der Start- 
punkt bestimmen.“ Das kann man so oft 
machen, wie man will, denn nur der zuletzt 
bestimmte Startpunkt ist gültig. Wird kein 
Startpunkt definiert, nimmt das Programm 
automatisch die Mitte des Editierrahmens 
(Koordinate 11,11) als Anfangspunkt für 


* Bei dem Programm auf der Sammeldiskette wurde 
zusätzlich der Befehl <W> zum Invertieren des 
Shapes eingefügt. 


das neue Shape an. Nach <Return> wird 
das Shape berechnet und zur Kontrolle 
unterhalb des alten Shapes gezeigt. Ein 
blinkendes Kreuz bezeichnet die Position 
des Startpunktes. Das Shape kann nun 
unter irgendeinem Namen auf Diskette ab- 
gespeichert werden. Das Programm siellt 
dem Namen automatisch „SH.“ für Shape 
voran. Es können also auch Zahlen als 
Namen eingegeben werden. Danach wird 
gefragt, ob man mit einer neuen Tabelle 
oder einem neuen Shape weitermachen 
oder das Programm beenden will. 

Jeder Programmabschnitt kann durch Be- 
tätigung von <Esc> abgebrochen wer- 
den, um zum vorhergehenden Teil des 
Programms zu kommen. 


3. Technisches 


Der kleine Rahmen umschließt einen Be- 
reich, der in den Zeilen 1270-1410 
byteweise ausgelesen wird. Diese Daten 
werden in der Subroutine von Zeile 2690- 
2950 in das 21 » 21 Punkt großes Feld 
B% (x,y) übertragen. Nun kann im näch- 
sten Programmschritt leicht jede Stelle 
des Feldes mit dem Cursor angefahren 
werden, um dort Punkte zu löschen oder 
zu setzen. Auch der neue Startpunkt wird 
im Feld markiert. Nun berechnet das Pro- 
gramm die Grenzen des Shapes, damit 
nicht zuviel Speicherplatz verbraucht wird. 
Dann werden zuerst Vektoren vom Start- 
punkt bis in die obere linke Ecke des neu- 
en Shapes in den Speicher geschrieben. 


Das Shape wird nun Zeile für Zeile inner- 
halb der Shapegrenzen „abgetastet“, und 
die entsprechenden Vektoren werden an 
ihre Adresse gepokt. Eine Tabelle der ent- 
sprechenden Werte stellt Abb. 3 dar. Ein 
so erzeugtes Shape benötigt natürlich mehr 
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Abb. 3: Bedeutung der Vektoren 
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Platz als sein Vorbild. Deshalb kann es 
nicht an seinen alten Platz in der Tabelle 
zurückgeschrieben werden, denn die er- 
forderlichen Berechnungen der Abstände 
der nachfolgenden Shapes sowie deren 
Verschiebung würde zuviel Zeit in An- 
spruch nehmen und wäre darüber hinaus 
recht kompliziert. 

Jedes neue Shape wird im Bereich ab 
$0800 erzeugt und auch mit den entspre- 
chenden Werten auf Diskette geschrie- 
ben. Vorsicht also, ein solches Shape oh- 
ne A-Parameter einfach mit dem Befehl 
„BLOAD SH.xxxx“ von Diskette zu laden. 
Ein schon im Speicher befindliches BA- 
SIC-Programm würde sonst zerstört. Bitte 
also z.B. „BLOAD SH.xxxx, A$6000“ ein- 
geben und die Speicherstellen 232 und 
233 dezimal entsprechend auf den Anfang 
der Tabelle einstellen. Wer es nicht weiß: 
Diese beiden Speicherstellen auf der Ze- 
ro-Page (auch $00E8 und $00E9 hexade- 
zimal) sind die Zeiger für den Beginn einer 
Shapetabelle, wobei 232 das Low-Byte 
beherbergt und 233 für das High-Byte zu- 
ständig ist. 





Abb. 4: Beispiel-Shape in Ver 


Tastenfunktionen 

(<-) = Shapeauswahl Tabelle hinunter 
(-> ) = Shapeauswahl Tabelle hinauf 
(Esc) = Abbruch eines Programmteils 
(Return) = Annahme 

[r b-} = Punkt löschen 

PP} = Punkt setzen 

0 543 = Spiegelung, Startpunkt setzen 
E 2.3 = Catalog der Diskette 

fl [33 = Programmabbruch 


Kommentar zum Programm 


1d0d-1949 Programm über 1, Grafikseite 
laden, Editier-Shapes laden, 
evtl. Präfix abstellen 
1856-1238 Auswahl der Tabelle und 
des Shapes 
Aufruf Subroutine 
"Bildschirmaufbau!" 
1258-1260 Aufruf Subroutine 
"Shape- und GCursor-Steuerung" 
1278-141ß Einlesen der Daten aus 
kleinem Rahmen und 
Aufruf Subroutine 
"Feld erstellen" 
Aufruf Subroutine "Shape- und 
Cursor-Steuerung" 
1438-1598 Berechnung der Shapegrenzen 


1249 


1429 
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1689-1858 Vektoren bis zur oberen 
linken Ecke poken 

1868-19 Shapeanfangswerte eingeben, 
Bildanfang berechnen 

1918-2249 Zeichenvektoren des Shapes 
berechnen und poken 

2250-2369 Abfrage "Shape auf Diskette, 
Programmende" und 
Speicherung '"SH,xxxxX" 
auf Diskette 

2370-2688 Subroutine "Shape- und Cursor- 
Steuerung" 

2698-2959 Subroutine "Feld erstellen". 
Gelesene Shapebytes in 
Feld BZ(X1,X1) eintragen 

2968-3128 Subroutine "Bildschirmaufbau" 

3138-328 Fehlerbehandlung 


Variablenübersicht 


Um Speicherplatz zu sparen, da das Pro- 
gramm und seine Variablen in den Bereich 
zwischen $4000 und $5FFF passen müs- 
sen, haben einige Variablen in unter- 
schiedlichen Programmteilen verschiede- 
ne Aufgaben. Der gültige Bereich wird in 
Klammern hinter der jeweiligen Funktion 
angegeben. Soliten keine Klammern vor- 
handen sein, gilt die Funktion für das gan- 
ze Programm. 


Ä = Gelesener Shapebyte-Wert 
Shapenummer aus Daten 
(2968-312) 

Alx) = Hilfsfeld zur Umrechnung der 


gelesenen Werte !A" 
in das Feld B%(x,y) 

B = Indikator für Shapegrenzen 
x-Koordinate aus Daten 
(2969-312%) 

B%lx,y) = Feld der einzelnen Shapepunkte 
(21 & 21) 

C = Schleifenzähler bei der 
Berechnung der 
BEinzelshapebytes 
y-Koordinate aus Daten 
(2960-3129) 

CX = x-Koordinate des Startpunktes 
auf dem Bildschirm 





CY 


D$ 
E$ 
FF 


FH 


HL 
HR 
HO 
HU 


HS 


Ar 


nl 
N$ 


0$ 
SX 


ST 


XN 


Al 
X2 


YA 
YN 


31 


in u 


grafik 4 


y-Koordinate des Startpunktes 
auf dem Bildschirm 

Ctri-D (DOS-Kommando) 
Eingabevariable 

Errorflag zur Verteilung 

nach aufgetretenem Fehler 
Hilfsflag (1 = Shapezeichnung, 
ß = Cursor) 


= Hilfsvariable Spiegelung, 


rettet "I" bei Spiegelung 
Linke Grenze des Shapes in 
Feld B%lx,y) 

Rechte Grenze des Shapes in 
Feld B%Z(x,y) 

Obere Grenze des Shapes in 
Feld B%(x,y) 

Untere Grenze des Shapes in 
Feld B%(x,y)} 

Flag Spiegelung (1 = 
ß = nicht spiegeln) 


spiegeln, 


= Sschleifenzähler 


I Il tl rom il I m 1 


Indikator für Shapeanfang 
(1869-1998) 

Schleifenzähler 

Sschleifenzähler 

Berechnungswert für die 
*X-Koordinate '!X' 

Shapenummer in der Tabelle 
Aktuelle Shapenummer 

Name der Shapetabelle 
(1859-111) 

Name des neuen Shapes 
Abbruch-Variable "I" 
x-Koordinate des Startpunktes 
im Feld B%{x,y) 

y-Koordinate des Startpunktes 
im Feld B%(x,y) 
Shapetabellenanfang 

Aktuelle Adresse im neuen Shape 
während der Berechnung 
x-Koordinate für Editier-Cursor 
Alte x-Koordinate zur Zeichnung 
von Shape oder Cursor 

Neue x-Koordinate zur Zeichnung 
von Shape oder Cursor 
x-Koordinate im Feld B%(x,y) 
x-Koordinate im Feld B%#{x 
rechte Grenze 


= Alte y-Koordinate zur Zeichnung 


von Shape oder Cursor 


= Neue y-Koordinate zur Zeichnung 


m 


von Shape oder Cursor 
y-Koordinate im Feld B%(x,y) 
y-Koordinate im Feld B%(x,y), 
untere Grenze 
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Ill. Der Shape-Creator 


Shapetable-Editor für Shapes mit 21 x 21 Bildpunkten 


Viele werden jetzt sagen, „Schon wieder 
ein Shapetable-Programm!“. Doch halt, 
erst lesen, dann kritisieren. Der Shape- 
Creator ist anders konzipiert als seine Vor- 
gänger. Shapes auf dem Bildschirm erstel- 
len, das können alle Programme, doch wie 
gehen sie dabei vor? 

Der Benutzer gibt über Tastatur die Bewe- 
gungen und Punkte ein, das Programm 
rechnet diese sofort in Shapedaten um, 
und am Ende ist die Tabelle fertig. Was 
aber, wenn man sich bei der Eingabe ver- 
tan hat, wenn das Shape nun doch nicht so 
aussieht, wie man es sich vorgestellt hat? 
Änderungen sind nicht mehr möglich, da 
jedes Shape während seines Entstehens 
Im Speicher abgelegt wurde. 

Hier setzt der Shape-Creator ein. Man 
kann jedes Shape so lange bearbeiten, bis 
es die Form hat, die der Programmierer 
sich wünscht, erst dann werden die Daten 
im Speicher abgelegt. 

Der zweite Vorteil des Shape-Creators 
liegt darin, daß man sich eines zuvor er- 
stellten Shapes bedienen kann, um ein 
neues Shape zusammenzubasteln, indem 
man das Editierfeld nicht löscht. So blei- 
ben alle gesetzten Punkte erhalten, wenn 
ein neues Shape gezeichnet wird. Anima- 
tion mit Shapes wird dadurch wesentlich 
erleichtert. 


1. Programmablauf 


Zuerst wird gefragt, ob man eine neue 
Tabelle erstellen oder eine vorhandene 
Tabelle bearbeiten will. Sollte man sich 
dafür entscheiden, eine Tabelle zu bear- 
beiten, muß man den Namen eingeben. 
Nun wird überprüft, ob die Tabelle noch 
Platz für weitere Shapes bietet. Ist dies 
nicht der Fall, fragt das Programm automa- 
tisch nach einer neuen Tabelle. 

Hat man sich für eine neue Tabelle ent- 
schieden oder die zu bearbeitende Tabelle 
ist noch nicht komplett gefüllt, wird der 
Bildschirm aufgebaut. 

Zu sehen ist der große Editierrahmen so- 
wie rechts davon zwei kleinere Rahmen, 
einer in Weiß, der andere in Schwarz. In 
ihnen kann man sehen, wie das Shape in 
der normalen Größe aussehen wird, das 
heißt SCALE = 1. Unterhalb des Grafik- 
fensters ist die Bedeutung der einzelnen 
Tasten zu sehen. Man kann nun damit 
beginnen, sein Shape zu konstruieren. 
Der Startpunkt, von dem aus sich das 
Shape später aufbaut, ist in der Mitte des 
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21 x 21 Punkte großen Feldes. Er kann 
aber willkürlich verändert werden. Hieran 
zeigt sich, daß der Shape-Creator ur- 
sprünglich zur Zeichnung der MOUSORY. 
SETs (aus Peeker, Heft 7/86) geplant war. 
Durch Betätigung der <Return>-Taste 
wird das Shape berechnet, und zwar in 
folgender Reihenfolge: 


1. Berechnung der Shapegrenzen 

2. Vom Startpunkt bis zur berechneten 
linken oberen Ecke des Shapes 

3. Ab dort zeilenweise im Wechsel (von 
links nach rechts, dann von rechts nach 
links) bis zur untersten Shapezeile 


Zur Kontrolle erfolgt die erneute Abfrage, 
ob das Shape an die aktuelle Tabelle an- 
gehängt werden soll. Wer mit seinem 
Shape nicht ganz zufrieden ist, kann hier 
seine letzte Chance nutzen. Selbst wenn 
er die Frage verneint, ist seine vorherige 
Arbeit nicht umsonst gewesen, da er den 
Editierrahmen unverändert für den näch- 
sten Versuch übernehmen kann. Die von 
mir bisher benutzten Shape-Editoren 
kannten diese Möglichkeit nicht. 

Wer sein Shape an die Tabelle anhängt, 
kann dies selbstverständlich auch nutzen, 
ansonsten ist der Rahmen natürlich zu |lö- 
schen. 

Jedes schon definierte Shape kann durch 
Betätigung der <Z>-Taste auf dem Bild- 
schirm gezeigt werden. Mit den Pfeiltasten 
(—, =) wird in der Tabelle „geblättert”, 
mit <Return> geht es zurück zum Haupt- 
programm. 

Mit <T> kann die aktuelle Tabelle nun 
auch auf Diskette geschrieben werden. 
Wer eine Tabelle neu eingegeben hat, 
muß ihr einen Namen geben. Das Pro- 
gramm stellt automatisch „ST.“ für 
Shapetabelle voran. Sollte es sich um eine 
bearbeitete alte Tabelle handeln, muß nur 
die <Return>-Taste betätigt werden, um 
die Tabelle unter ihrem alten Namen abzu- 
speichern. Der Shape-Creator kann nur 
über diesen Programmiteil verlassen wer- 
den, um Datenverluste durch versehentli- 
ches Verlassen ohne Abspeicherung der 
aktuellen Tabelle zu vermeiden. 


Änderungsvorschläge 

Das Programm ist in der vorliegenden Ver- 
sion sowohl unter DOS 3.3 als auch unter 
ProDOS lauffähig. Wer mit ProDOS arbei- 
tet, sollte für das gefahrlose Wechseln von 


Disketten an den Anfang des Programms 
den Befehl „PREFIX/“ zur Abschaltung 
der aktuellen Präfixes stellen. Auch der 
„CATALOG“-Befehl in Zeile 3000 sollte in 
„CAT“ umgeändert werden. 


Shape-Creator füllt die Lücke, die die Pro- 
gramme Shape-Editor und Table-Editor 
hinterlassen haben. Versierte Program- 
mierer können diese drei Teile eventuell 
zu einem einzigen Programm kombinie- 
ren. Dann hätte man einen Super-Shape- 
Editor zur Verfügung, der keine Wünsche 
mehr offen ließe. 

Das Programm ist eigenständig, das heißt, 
es muß nicht vom Table-Editor aus aufge- 
rufen werden. 

Zum Abschluß muß ich leider einen klei- 
nen Wermutstropfen auf die aufkeimenden 
Hoffnungen vom komfortablen Shape-Edi- 
tieren gießen. Der Shape-Creator eignet 
sich nur zur Erstellung von Shapes, die mit 
dem SCALE-Faktor von 1 wiedergegeben 
werden sollen. Da die Berechnung der 
Shapewerte zeilenweise erfolgt, kommt es 
zu Verzerrungen bei der Vergrößerung. 


Kommentar zum Programm 


1B08-110@ Programmbeginn an $4PPd 
verschieben 

ı111®-131® Auswahl der Shapetabelle, 
Bestimmung der Shapezahl 

1328-1398 Startbedingungen, Ausruf 
Subroutine "Bildschirmaufbau" 

1496-1589 Tastaturabfrage, Auswertung 

1598-1769 Shapegrenzen festlegen 

1776-2658 Werte bis zur linken oberen 
Ecke des Shapes poken 

2060-2389 Werte Zeile für Zeile bestimmen 

2390-2469 Zeigen des Shapes mit 
Startpunkt, Anhängen Ja/Nein 

2479-2558 Hauptmenü 

2566-2668 Zeigen der bisher definierten 
Shapes 

2676-2768 Tabelle auf Diskette speichern 

2776-2318 Subroutine Bildschirmaufbau 

2926-2988 Fehlerbehandlung 

2998-5ßPBd Catalog der Diskette 


Variablenübersicht 


A = Zeilenflag Rechts-Links-Wechsel 
bei Shapeberechnung 

Plot-Noplot Flag bei Shape- 
berechnung 

Feld von 21 & 21 Punkten 
Schleifenwert bei Shape- 
berechnung 

x-Wert Startpunkt-Cursor 

y-Wert Startpunkt-Cursor 

Ctr1-D (Dos-Kommando) 
Eingabevariable 

Fehlerflag, übernimmt Verteilung 
nach aufgetretenem Fehler 

Linke Shapegrenze 

HO Obere Shapegrenze 

HR Rechte Shapegrenze 

HU = Untere Shapegrenze 

T = Schleifenvariable 


B 


BA(x,y) 


Ccx 
OY 
D$ 
E$ 
FF 


IF I Te Te I 


HL 


1 m 
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MS BASIC ist eine höchst moderne und leicht erlernbare 
Programmiersprache! 
210 reservierte Begriffe...Programmsynthese aus Modulen (lokale 


Variablen, Wertübergaben mit COMMON)..Nachladen von Segmen- 
ten (CHAIN, mit Parameterübergabe)...Einbinden von MAC-Funktio- 


nen (Graphik, Maus, Fenster, Knöpfe usw.)..Fremddateizugriff (von 
MS-BASIC auf Dateien von z.B. MULTIPLAN, MACPAINT. 
WORD)..Programmablaufsteuerung (Ereigniserfassung wie ON 


TIMER, ON MOUSE)..Peripheriebefehle (wie COMI für DFÜ)...struk- 


turierte BASIC-Programmierung ohne Zeilennummern...Gleit- 
kommaarithmetik........ 


MACINTOSH und MS BASIC bilden eine komfortable Pro- 
grammierumgebung! 


Mehrfachfenster für Simultanbeobachtung (z.B. Fenster 1: Haupt- 
programm, Fenster 2: Unterprogramm; oder Fenster 1: Listing, Fen- 
ster 2: Ergebnisse)...Mausedition wie in Textprogrammen...Collage- 
technik (Programmabschnitte ausschneiden und versetzen)... 


HIER DER KURSTEXT einer lebendigen und systematischen 
BASIC-Einführung von dem US-Professor David Lien. Ein Text 
für das Selbststudium, das in anspruchsvolle BASIC-Program- 
mierungen mit den Funktionen des MACINTOSH mündet. Ideal 


als Schultext. 


450 Seiten, Softcover, DM 59,- 


Lu) 
MERNDD 


FERE 
Be PD a A LE 


FIRE LA alten 
en zn a7 


wann - a a 
Hl 


Tem 


Teen 


M68000 FAMILIE, 2 Bd. 

Hilf/Nausch, ges. 968 Seiten 

Einzige Motorola-authentische Darstellung 
von CPU-68000-Architektur, Programmie- 
rung, Systernaufbauten. Behandelt alle 
68000-Bausteine sowie 68020, 68881. 

Bd 1, Grundlagen + Architektur, 568 Sei- 
ten, DM 79,- 

Bd 2, Anwendung und Bausteine, 

400 Seiten, DM 69,- 


Das 

APPLE Il/II+/He/IIc-Handbuch 

L, Poole 

Erst mit Hilfe dieses Leitfadens werden Sie 
Ihren Apple Il erfolgreich einsetzen, denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angehoten wird. 

Neu überarbeitet und jetzt um die spezifi- 
schen Eigenheiten der Modelle He und Ic 
erweitert. 472 Seiten, Softcover, DM 66, - 


APRLEI 


PAXLAL 


Baksbanpiianm 


APPLEWORKS integriert in 

APPLE I, Ile, Ilc die Funktionen eines 
modernen Schreibtisches: Textverarbei- 
tung, Datenbank, Rechenblatt, Daten- 
fernübertragung. Sämtliche System/ 
Anwendungsfragen in 2 Bänden. 

Von Botta/Lange/Zimmermann, je 264 
Seiten und je DM 49,- 


DAS C-BUCH. NEU 
Textbuch für C-Kurse und C-Anwendungen 
auf PCs. Beschreibt sämtliche Konstrukte der 
C-Sprache unter.den Betriebssystemen MS 
DOS, CP/M, 1515, UNIX und für die C-Com- 
piler von MS, DR, LATTICE, INTEL. Didak- 
tisch und typographisch außergewöhnlich 
Mit, über 100 lauflähigen Beispielprogram 
men für PCs. Zeigt Realisierungen neuester 
Softwarestrategien in „EC 

Von Herold’Unger. Herbst 86: 

Etwa 500 Seiten. Softcover, DM 79,- 


UMWELTDYNAMIK 

30 Programme für kybernetische 
Umwelterfahrungen auf allen 
BASIC-Rechnern. Das Buch enthält 
beides: Ein Programmsystem zur 
Simulation eigener Problemformu:- 
lierungen und 29 kommentierte 
Modellbeispiele wie Baumsterben, 
Heizungsbedarf, Nahrungsketten 
usw. Prospekt anfordern. 

Von Hartmut Bossel, 480 Seiten, 
Softcover, DM 59.- 


Erstes deutsches Referenzwerk 
sämtlicher Befehle und Systemroutinen 
von Apple Il, Iplus, Ile 

APPLE II PASCAL 

Betriebssystem, 272 5, DM 49,- 
Sprache, 216 $., DM 39,- 

Pascal 12 Addendum, 112 5, DM 36,- 


Grundlagenbuch, Bestseller 
APPLE ITPASCAL. 

Eine praktische Anleitung, 
544 5. DM 59,- 





N 
N$ 
N1$ 
SN 
SX 
SY 
TA 


TN 


xl 
X2 


ZA 
XN 


Yı 
Y2 


14 


= Schleifenvariable YA 





Alter y-Wert des Editiercursors 





Zum Editieren können sie u.a. die Mouso- 


= Variable bei j — _ jti . 
m uenun Da ry-Shapes von Sammeldisk #19 ver- 

= Tabellenkapazität Bildschirmaufbau wenden. 

= Aktuelles Shape beim Anzeigen 

= Name Shapetabelle 

= Aktueller Name Shapstabelle 

= Aktuelle Zahl der Shapes 
in der Tabelle . 5 

= x-Wert Startpunkt im Feld Kurzhinweise ST.EDIT 
BAlx,y) . 

= y-Wert Startpunkt im Feld 1. Zweck: (Tabelle mit 10 Shapes) 
BA(X,y) Eingeben, Ändern und Zusammenfügen 

= Tabellenanfang ($6@Pß oder sosdB: BA BB 16 Bd 1D BB 2a BB 
24576 dezimal) von Shapetabellen $p3B8: 2C BB 2F DB 36 9 SF HB 

= Startadresse des aktuellen 2. Konfiguration: en 2: B8 in 4 er dB 2A 17 
Sshapes R 318: 56 3E BD B4 16 28 15 

= Aktuelle Adresse innerhalb Apple II+/e/c; DOS 3.3 oder ProDOS $032B: 96 ZF 2A BB 23 2C 35 36 
der Shapetabelle 3, Test: $0328: 3E 27 da DB 27 25 dd 23 


= x-#ert innerhalb B%(x,y) 

= x-Hert bei Berechnung der 
Shapegrenzen 

= Alter x-Wert des Editiercursors 

Neuer x-Wert des Editiercursors 

= Maximale x-Position bei 


A, Sammeldisk: 
TABLE.EDITOR 
SHAPE.EDITOR 


Bildschirmaufbau SHAPE.CREATE 
= y-Wert innerhalb B#(x,y) 
= y-Wert bei Berechnung der STEDIT 
Shapegrenzen 5. Sonstiges: 


TABLE.EDITOR 


1288 
1819 
1829 
1830 


184B 
1058 
1869 
1878 
1B8B 
1899 
1166 
1118 
1128 
1138 
1146 
115 
1168 
117B 
1188 
1196 
1206 
1218 
1228 


1236 
124% 


1259 
126 
1276 


1288 
1299 


138 


1318 
1328 
133% 
1348 
135 
136% 
1370 
1380 


1399 


REM »* Table.Editor ** 

REM *x* Wolfgang Landgraf 19.94.86 *%* 

D$ = CHR$ (4):9$ = "!" 

IF PEEK (184) < > 8 THEN POKE 183,1: POKE 194,8: 
2948,%: PRINT : PRINT D$"RUN TABLE,EDITOR" 

TEXT : HOME :VT = 6:HT = 7:V=$:W7=1 

FOR I = d TO 39: PRINT "-";: NEXT 

PRINT TAB{ 13)"Shape-Table-Plus" 

FOR I = TO 39: PRINT "-";: NEXT 

POKE 34,4 

VTAB 6: HTAB 19: PRINT "Shapetabelle erstellen" 
VTAB B: HTAB 19: PRINT "Shapetabelle editieren" 
VTAB 18: HTAB 19: PRINT "Einzelshapes erstellen" 
VTAB 12: HTAB 19: PRINT "Einzelshapes editieren" 
VTAB 14: HTAB 16: PRINT "Catalog Disklaufwerk 1" 
VTAB 16: HTAB 16: PRINT "Shape-Table-Plus->Ende" 
GOSUB 11708:FM = 1 

oN (VT - 4) / 2 GOTO 1290, 1720, 2229 ,2599,2659, 2700 
VTAB 19: FOR I = ® TO 39: PRINT "-";: NEXT 

VTAB 21: FOR I = 9 TO 39: PRINT "-";: NEXT 

VTAB 6: HTAB 7: PRINT ">" 

VTAB 20: HTAB 19: PRINT "<- Wahl ->,dann <RET>" 

VTAB 28: HTAB 31: GET E$ 

IF E$ <> CHR$ (8) AND E$ < > CHR$ (21) ANDES <> 
CHR$ (13) THEN 1219 

IE E$ = CHR$ (13) THEN RETURN 

VN=VT+ (2% (E$ = cCHR$ {21))) - (2 * (E$ = CHR$ 
(8))) 

IFVN<6 TIHENVN=1d +2 x V +6“ MW 

IFVN> 16 +2 xV+6-WTHENVN=6 

VTAB VT: HTAB HT: PRINT " ": VTAB VN: HTAB HT: PRINT 
"_>t:VT = VN: GOTO 1219 

REM ** Shapetabelle erstellen ** 

TA = 24576:VT = 6:HT = T:N = 9:52 = B:SB = B:V = 1W 
= ß: POKE — 16393, 

HOME : VTAB 6: HTAB 19: PRINT "Alte Tabelle 
editieren" 

VTAB 8: HTAB 19: PRINT "Neue Tabelle erstellen" 

VTAB 16: HTAB 19: PRINT "Shape.Creator aufrufen" 

VTAB 12: HTAB 19: PRINT "Hauptprogramm und Ende" 
GOSUB 1178:FM = 2 

oN (VT - 4) / 2 GOTO 1369, 1459, 262B., 1049 

GOSUB 2739 

FF = 1: ONERR GOTO 2769 

HOME : VTAB 22: INPUT "Tabelle ('?'=CATALOG): 
"N$:N1$ = N$ 

ON { LEFT$ (N$,1) = "?") GOTO 2659: ON ( LEFT$ (N$,1) 
= 0$) GOTO 1299 


POKE 





RUN SHAPE.CREATE usw. 


1499 
1419 


1426 
1430 


1449 
145P 
1469 
1478 


1489 
1499 
1599 


1518 


1528 


1538 
154 
1559 
1569 


1578 
158 


1599 
1668 


1819 
1629 


163% 
1648 
1658 


1860 
1676 
1686 
1698 
1799 
1718 


$#33%: 2C B5 AB 1E 27 96 35 3F 
$0338: 27 25 27 2D 2E 24 99 ch 
$0340: 6B Bl FA 23 BB 93 68 1E 
50348: 1E BD BA BO 24 24 2D 2D 
40350: 36 3F 6F 11 6E 24 24 96 
30358: @A 2D 6D 21 24 3C 6F 29 
$o369: da dp 24 24 15 15 15 15 
50368: 24 24 AD 2D 2D DF 13 2E 
$6370: FD 32 2D 2D SD 24 24 AD 
306378: 31 36 3E 3F Ba Bo 00 Ba 


PRINT : PRINT D$"BLOAD"N$", AH6BBB" 

N = ( PEEK (TA + 2) + 256 = PEEK (TA + 3) - 2) / 2:52 
= PEEK (TA) 

IF N = SZ THEN HOME : VTAB 22: PRINT "Die Tabelle ist 
voll !": FOR I = 1 TO 2598: NEXT : GOTO 184® 

HOME : VTAB 22: PRINT N — SZ" Shape(s) haben noch 
Platz !" 

FOR I = 1 TO 2566: NEXT : 
GOSUB 2738 

FF = 2: ONERR GOTO 2769 
HOME : VTAB 22: INPUT "Anzahl der Shapes: ";N$:N 
VAL {N$): ON (N$ = Q$) GOTO 129B: ON (N<1LORN 
255) GOTO 147ß 

TB=2#N+2 

FOR I = TA TO TA + TB: POKE 1,8: NEXT 

POKE TA + 2,TB - 256 =» INT (TB / 256): POKE TA + 3, 
INT (TB / 256} 

SB = PEEKK (TA +52 #« 2 + 2) + 256 = PEEK (TA + SZ = 2 
+3) + TA 

FM = 5: HOME : VTAB 22: INPUT "Shape ('?7'=CATALOG): 
"NS: ON { LEFT$ (N$,1) = "?") GOTO 26598: ON ( LEFT$ 
(N$,1) = Q$) GOTO 1299 

FF = 3: ONERR GOTO 2769 

PRINT : PRINT D$"BLOAD"N$", A$ABBg" 

POKE 232,8: POKE 233,64: XDRAW 1 AT 93,96 

HOME : VTAB 22: PRINT "Dieses Shape ? (J/N): ";: GET 
E$: IF E$ < > "J" THEN HGR : GOTO 1529 

I= 16387 

I=1I+ 1:J = PEEK (I): 
= ß THEN 168 

GOTO 1589 

SZ = SZ + 1:SE = SB + I - 16387 - TA: POKE TA,SZ: IF 
SZ = N THEN HOME : VTAB 22: PRINT "Die Tabelle ist 
voll !": FOR I = 1 TO 2568: NEXT : GOTO 1649 

POKE TA + 2 & SZ + 2,SE - 256 # INT (SE / 256): POKE 
TA+2 x SZ + 3, INT (SE / 256) 

HOME : VTAB 22: PRINT "Weiter ? (J/N): "; 
E$ < > "N" THEN HGR : GOTO 151® 

FF = 4: ONERR GOTO 2768 

HOME : VTAB 21: PRINT "Name: { "N1$" ) = <RETURN>" 
VTAB 22: INPUT " "ıN$: IE N$ = "" THEN N$ = N1$: 
GOTO 1699 

PRINT "Wird als ST."N$" abgespeichert." 

PRINT : PRINT D$"BSAVE ST.'N$", A$6Q99,L"SE 

GOTO 1769 

PRINT : PRINT D$"BSAVE"NS$", A$6ßWPB,L"SE 

GOTO 1949 

REM ** Shapetabelle editieren #** 


GOTO 1519 


> 


POKE SB + I — 16388,J:: IF J 


: GET E$: IF 
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1729 
173ß 


1749 
1758 
1766 
1778 
1788 
1798 
1869 


1818 


1828 
1839 


1846 
185® 
1869 
187 
1889 
1899 


1988 
191ß 
1928 
193% 
1949 
1959 
196 


1979 
1989 


1999 
28090 


2218 


2829 
2839 


2B40 
2859 
2d6 
2078 
2088 


2899 


2100 
2119 
2128 


2139 
2149 
2159 


2169 
2178 


2189 
219% 


2200 
2218 
2228 
2230 
2248 


ARS5B 
2269 
227B 
22BB 


2299 
23090 


231 
232d 


2339 
2340 
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TA = 16384:VT = 6:HT = 7:FM = 3:HH = B:V = d:W = $: 
POKE - 16363,0 


HOME VTAB 6: HTAB 18: PRINT "Die Tabelle 
verlängern" 

VTAB 8: HTAB 1: PRINT "Shape- Folge verändern" 
VTAB 19: HTAB 19: PRINT "Hauptprogramm und Ende" 
GOSUB 1178 

ON (VT - 4} / 2 GOTO 1799,1789, 1040 

HH = 1: HGR 

FF = 5: ONERR GOTO 2769 

HOME : VTAB 22: INPUT "Tabelle ('?'=CATALOG): 
":N$:N1$ = N$ 

ON ( LEFT$ {N$,1) = "?") GOTO 2659: ON ( LEFT$ {N$,1) 
= 0$) GOTO 1729 

PRINT : PRINT D$"BLOAD"N$", A$4dd9" 

SZ = PEEK (TA):I = TA + PEEK (TA + 52 * 2) + 256 * 


PEEK (TA+52 *x 2 +]) 

I=E+ 1:J = PEEK (IE): 

sL = I-TA+]1 

IF HH THEN 1999 

FF = 6: ONERR GOTO 276% 

HOME : VTAB 22: INPUT "Wieviel Shapes hinzu: ":N 

IF SZ + N > 255 THEN HOME : VTAB 22: PRINT "Insgesant 

nicht mehr als 255 Shapes !': FOR I = 1 TO 2599: NEXT 
GOTO 1889 

POKE TA —- 2 » N,SZ: POKE TA - 2 = N + 1,9: POKE TA,G 

FOR I = TA+2 TO TA+ 2 x SZ STEP 2 

J=PEEK {I} # 256 » PEEK (I+ 1) +2 = N 

FORE I =2%& N,.J - 256 » INT (J 7 256): POKE 1.0 

POKE I +1-2x% N, INT (J / 256): POKE I+ 1,8 

NEXT 

TA = TA - 2 & N:I= TA + PEEK (TA + SZ * 2) + 256 * 

PEEK (TA +S2 #2 +]) 

I1=1+1:J = PEEK (I): IF J< > $ THEN 1979 

IT=1=- 7A +1: PORE TA + 52 # 2 # 2,1 = 256 = INT (I 

/ 256): POKE TA + SZ = 2 + 3, INT (I / 256): COTO 

2138 

PORE 233.64: POKE 232.8: FOR IT= 170 2 

XDRAW 1 AT 93 & 1,96:N1l = 1: IF PEEK (TA) = 1 THEN 


IF J<> 9 THEN 1849 


VTAB 22: PRINT "Die Tabelle hat nur ein Shape!": FOR 
I= 1 TO 1589: NEXT GOTO 1728 

HOME : VTAB 21: PRINT "<- Wahl ->, <RETURN> = 
Annahme":N =] 

VTAB 22: HTAB 1: PRINT "Shape-Nr.: "Nl" "5: GET E$ 


IF E$ < > CHR$ (8) AND ES < > CHR$ (21) AND E$ < > 
CHR$ (13) THEN 2928 

IF E$ = CHR$ (13) THEN N{I) = N: NEXT : GOTO 2898 
N=N+ (E$ = CHR$ (21)) - (E$ = CHR$ (8)) 

IFN< 1 THENN = PEEK (TA) 

IF N > PEEK {TA) THENN =1 

XDRAW N1 AT 93 # 1,96: XDRAW N AT 93 # 1,96:N1 = N: 
GOTO 2829 

W1 = PEEK (TA + 2 = N{1)):W2 = PEEK (TA + 2 x N{1} + 
1):W3 = PEEK (TA + 2 = N({2)):W4 = PEEK (TA + 2 = N(2) 
+1) x 

POKE TA + 2 * N{1),W3: POKE TA + 2 = N{l) + 1,W4 
POKE TA + 2 = N(2),W1: POKE TA + 2 = N{2) + 1,W2 


HOME : VTAB 22: PRINT "Nochmal ? (J/N}: ";: GET E$: 
IF E$ < > "N" THEN HGR : GOTO 199 

FF = 7: ONERR GOTO 2768 

HOME : VTAB 21: PRINT "Name: ( "N1$" ) = <RETURN>" 
VIABb 22: INEUT ":N$: IF N$ = "" THEN N$ = NI1$: 
GOTO 219 

PRINT "Wird als ST,'"N$" abgespeichert." 


PRINT : PRINT D$"BSAVE ST."NS" ATTAr L'SL+ 2 = N «+ 

(HH = ß) | 
GOTO 2288 

PRINT : PRINT D$S"BSAVENN$", AUTAT,LISL+2 «N x (HH = 

Bd) 

HH = Bd: GOTO 1dag 


REM «x Einzelshapes erstellen #** 
GOSUB 2738 


TA = 24576:N = L:FM = 4 
HOME : VTAB 22: INPUT "Tabelle ('?'=CATALOG): 
"N$:N1$ = N$ 

ON ( LEFT$ {N$,1) = "?") GOTO 2656: ON ( LEFT$ {n$,1) 
= Q0$) GOTO 1848 

FF = 8: ONERR GOTO 2768 


PRINT : PRINT D$"BLOAD"N$" , A$6pdgdg" 
POKE 232,9: POKE 233,96: POKE 16384,1: POKE 16385,@: 
POKE 16386,4: POKE 16387, 


XDRAW 1 AT 93,96:N1 = 1: IF PEEK (TA) < > 1 THEN 2329 
HOME : VTAB 22: PRINT "Dieses Shape ? {J/N): ";: GET 
E$: IF E$ = "J" THEN 2480 

GOTO 224% 

HOME : VTAB 21: PRINT "<- Wahl ->, <RETURN> = 
Annahme":N = 1 

VTAB 22: HTAB 1: PRINT "Shape-Nr.: "N" ";: GET ES 


IF E$ < > CHR$ (8) AND E$ < > CHR$ (21) AND ES < > 
CHR$ (13) THEN 2330 


2350 
2360 
2378 
2380 
2390 
2488 
2A10 
2420 
2438 
2440 
2450 
2466 
2470 


2480 
2490 
2508 


2519 


2529 
2539 
2549 


2559 


2560 
2570 
2589 
2598 
2608 
2618 
2628 
2638 
2640 
2650 
2660 
2676 
2680 
2698 
2708 
2718 
2729 
2730 


2740 
2758 
2760 
2770 
2789 
2799 


2809 
2819 


IF E$ 
N=N 


CHR$ (13) THEN 2499 

(E$ = CHRS$ (21)) - (E$ = CHR$ (8)) 
IFN< 1 THENN = PEEK (TA) 

IF N > PEEK (TA) THENN = 1 

XDRAW Ni AT 93,96: XDRAW N AT 93,96:N1 = N: 
SI=TA+Ns# 2:32 =-S1+153=- 32 +154=- 53 +1 


- 


GoTO 233% 


SB = TA + PEEK (S1) + 256 *& PEEK (S2):I=SB-1 
IF N< > PEEK (TA) THEN 246% 

Te He 

J= PEEK (I): IF J = ® THEN SE = I + 1: GOTO 2476 
GOTO 2439 

SE = TA + PEEK (S3) + 256 »PEEK (SA) 


FOR I = SB TO SE - 1: POKE 16388 + I - SB, PEEK (I): 
NEXT 

POKE 233,64 

XDRAW 1 AT 186,96 


HOME : VTAB 22: PRINT "Shape auf Diskette schreiben ? 
(J/N): "5: GET E$: IF E$ < > "J" THEN 2548 
HOME : VTAB 22: INPUT "Name: ";N$: PRINT "Wird als 


SH."N$" abgespeichert." 
FF = 9: ONERR GOTO 276% 
PRINT : PRINT D$"BSAVE SH."N$",A$ABBO,L'SE - SB + 4 
HOME : VTAB 22: PRINT "Nochmal ? {J/N): ";: GET B$: 
IF E$ < > "J" THEN 1949 


HOME : VTAB 22: HGR PRINT "Neue Tabelle ? (J/N): 
“2 GET E$: IF E$ < > "J" AND ES < > "N" THEN 2550 
IF E$ = "J" THEN HGR : GOTO 2229 

I = ®: HGR : GOTO 2289 

REM ** Binzelshapes editieren #* 


FF = 19: ONERR GOTO 2769 

PRINT : PRINT D$"RUN SHAPE,EDITOR" 
REM ** Shape.Creator aufrufen ** 
FF = 19: ONERR GOTO 276% 

PRINT : PRINT D$"RUN SHAPE.CREATE" 
REM ** Catalog Drive ] ** 


HOME : POKE - 16393, 
PRINT : PRINT D$"CATALOG" 
GET E$: PRINT E$: HGR 


ON FM GOTO 1949, 1379,1779,2240,1529 

REM *#* Programmende ** 

POKE 216,6: TEXT : HOME 

PRINT : END : REM Oder: PRINT D$"RUN HELLO" 
REM #* Bildschirm loeschen #** 
HOME : VTAB 22: HGR2 : HGR : 
Schr ==) 

RETURN 

REM *&* Fehlerbehandlung ** 
HOME : VTAB 22: IF PEEK (222) = 6 THEN PRINT "Diese 
Tabelle ist nicht auf der Disk !": GOTO 2819 

IF PEEK (222) = 9 THEN PRINT "Die Diskette ist voll 
It: GOTO 2819 

IF PEEK (222) = 8 THEN PRINT "Diskette defekt oder 
Laufwerk offen !": GOTO 281% 

IF PEEK (222) = 4 OR PEEK (222) = 18 THEN PRINT 
"Disketten,— File-Schreibschutz !'": GOTO 281% 

PRINT "Eingabefehler I!" 

FOR I = 1 TO 2809: NEXT : POKE 216,9: ON FF GOTO 
1389, 1469, 1529, 1649, 1809, 1889,2149,2249,2519, 1849 


HCOLOR= 3: ROT= $: 


SHAPE.EDITOR 


1099 
1019 
1829 
1938 


1949 
1859 
1969 
1979 
1988 
1898 
1199 
1118 
1128 
1139 


1149 
1158 


1169 
1179 


REM ** Shape.Editor #** 

REM x* Wolfgang Landgraf 29.94.86 ** 

D$ = CHR (4):9$ = "I" 

IF PEEK (194} < > 64 THEN POKE 183,1: POKE 14,64: 
POKE 16384,8: PRINT : PRINT CHR$ (4)"RUN SHAPE.EDITOR" 
IF PEEK (768) < > 18 THEN PRINT : PRINT CHR$ 

(4) '"BLOAD ST.EDIT, A$3B0" 

REM ** Auswahl des Shapes *+ 

TA = 24576: DIM BZ(21,21)} 


HOME : VTAB 22: HGR : HCOLOR= 3: ROT= B: SCALE= I:N = 
1 

INPUT "Tabelle ('?' = Catalog): ";N$: ON ( LEFT$ 
(N$,1) = "?")} GOTO 3280: ON ( LEFT$ (N$,1) = 0$) GOTO 
2369 

FF = 1: ONERR GOTO 3149 

PRINT : PRINT CHR$ (4)"BLOAD"N$", A$6ßpß" 

POKE 233,96: POKE 232,8:HS = ß 


XDRAW 1 AT 148,96:N1l = 1: IF PEEK (TA) < > 1 THEN 


1159 

HOME : VTAB 22: PRINT "Dieses Shape ? (J/N): ";: GET 
BES: IF E$ = "J" THEN 1249 

GOTO 1978 

HOME : VTAB 21: PRINT "<- Wahl ->, <RET>= 


Annahme ,<ESC>=Abbruch":N = 1 

VTAB 22: HTAB 1: PRINT "Shape-Nr.: "Nl" ";: GET ES 
IF E$ < > CHR$ (8) AND E$ < > CHR$ (21) AND ES < > 
CHR$ (27) AND E$ < > CHR$ (13) THEN 116ß 


13 


16 


1189 
1199 
1299 
1218 
1229 
123% 


1249 
1258 
1268 
1276 
1289 
1298 


1399 
1318 
132 
1339 


1349 
1358 
136ß 
1378 


1389 
1399 
1499 
1419 
1429 
1459 


1449 
1456 
1468 
1479 
1489 
1498 
1598 
1518 
1529 
153 
1549 
155@ 
1569 
1578 
1588 
1598 
1660 
161$ 
1629 
1639 
1649 
1656 
1669 
167 
1689 
1699 
1788 
1718 


1729 


1738 
1748 
1758 
1766 
1778 
1788 


1799 
1809 
1810 
1826 
1836 
1849 


185 
1869 


1870 
1889 
1899 
199 
1919 
1929 
193% 
1948 
1956 


IF E$ = CHR$ (13) THEN Nl = N: GOTO 1249 
IF E$ = CHR$ (27) THEN 1976 
N=N+ (E$ = CHR$ (21)) - (E$ = CHR$ (8)) 


IF N< 1 THENN = PEEK (TA} 

IF N > PEEK (TA) THENN=1 

XDRAW N1 AT 148,96: XDRAW N AT 148,96:N1 = N: GOTO 
1168 

GOSUB 2979: RESTORE 

GOSUB 2389 

POKE 233,3 


REM ** Einlesen der Daten aus gezeichnetem Shape *#+ 
Y=-3:Y\=-% 

FOR J = 8863 TO 16831 STEP 1824: Y= Y+ T:Yl=Yl + 
1:M=7: FRI=98+2xH5S 70 2-2x HSSTEP ( - HS 
*2) +1 

A=PEEK (J + I) 

GOSUB 2798 

NEXT : NEXT 

FOR J = 8991 TO 16159 STEP 1824:Y= Y+T:Y=Yl+ 
1:M=7T: FRI=8+2xHS TO 2-2 x HSSTEP {( - HS 
ae 

A=PEEK (J+ I) 

GOSUB 2799 

NEXT : NEXT 

FOR J = 9119 TO 13215 STEP 1824: Y = Y+7:Yl=Yl + 
1:M=7: FRI=ß+2xHS TO2-2%# HSSTEP ( - HS 
*» 2) +1 

A=PEEK (J + I) 

GOSUB 2798 

NEXT : NEXT 

GOSUB 2389 

REM &** Grenzen des Shapes berechnen x*%* 

HOME : VTAB 22: PRINT "Shape wird berechnet, bitte 


IDBZm | 


warten „„.":Xil= B:Yl =9:B=9 
Yıl=Yi+1" 
FOR Xl TO 2l:B=B + B%(XL,Yl): NEXT 


= 1 
IF B= 8 THEN 1449 
HO = Yl:Yl=-1:B=$% 
Yl=Yı +1: Y2 =2l1l-\Y 
FOR Xl = 1 TO 21:B = B + BZ(X1,Y2): NEXT 
IF B= ß THEN 1489 
HU = Y2:X1 = $:B= Bd 
xl al 
FOR Y1 = 1 TO 21:B = B + B%(XL,Yl}: NEXT 
IF B= ® THEN 1529 
HL = Xl:X1=-1:B=-$ 
21 Al + 1:2 = Al - Kl 
FOR ZYl1 = 1 TO 21:B =B + BZ{XR,Yl1): NEXT 
IF B=  THEN 1566 
HR = za: U = 285 10 = red: 
REM *»* Vektoren bis zur oberen linken Ecke poken x%* 
IF SY > HO THEN 169% 
IF SY = HO THEN 1738 
C=H0 - SY 
I=sI+tl: IFCG=-9®? THNI=I-]1l 
IF C>= 3 THEN POKE U + I,146:6 = GC - 3: GOTO 1649 
IEC = 2 THEN POKE U + L,144:0 = C - 2: GOTO 1640 
IE 0 >= LI THEN POKE UC+.T.150 
GOTO 1738 
G=SY - HO 
I=1I+1: IFC=$THENI=I-NlW 
IFC> = 2 THEN POKE U + 1,216: FPOKE U+ I + 1,72:1I= 
I+1:0=C - 2: GOTO 179 
IP 6°> >= 7 THEN FORE UF 1.216: PORE U: TI + 1.72%: 
POKE U+1I+ 2,283:I=1I+2 
IF HL > SX THEN 1819 
IF HL = SX THEN 1879 
C=SX - HL 
I=1I+rl 
Tee > =03 THEN FORE U FT. 2198: C = IE 3: GOTO 176% 
IFC>= 2 THEN POKE U + 1,219: POKE U+1I+ 1,281:1 
= I+1:0=C - 2: GOTO 1760 
IFC>= 1 THEN FOKE U+ 1,91 
GOTO 1879 
C= HL - SX 
I=I+]l 
IF C> = 3 THEN POKE U + 1,735:C = C - 3: GOTO 1829 
IFG>= 2 THEN POKE U + 1,73: POKE U+I+1,91:I = 
I+1:5C=C - 2: 6G0TO 1829 
IF CG> = 1 THEN POKE U + 1,75 
REM ** Startbytes des Shapes poken, dann Anfang des 
Bildes bestimmen x** 
POKE 2948,1: POKE 2849,99: POKE 20850,4: POKE 2051,9 
J=J+tl 
I PEEK (2851 + J): IF I< > B THEN 1888 
U= 2851 + J:J=d:0=9% 
REM ** Vektoren des Bildes poken ** 
FOR I =HO T0 HI:A= (A=9$) 
IF I = 22 THEN 2230 
IF A=  THEN 2850 
FOR J = HL TO HR 


196% 
1976 
198 
1999 
2099 
2610 
2020 


2030 
2049 
2059 
2060 
2078 
2089 
2099 
2199 
2119 
2120 


2136 
2140 
2158 
216 
2178 
2186 
2196 
2200 
2210 
2220 
2230 
2240 
2250 
2269 


227Ö 


2280 
2R9B 


2308 
2319 
2328 


2339 


2340 
2359 
2368 
2370 
2380 


2390 
2409 


z2ald 
2420 


2439 
2449 


2450 
2460 
2478 
2480 
2ASB 
2509 
2519 


2528 


2530 
2549 


2559 
2569 
2579 
2588 
2599 
2600 
2619 


262P 


2635Ö 


B= BAlJ,T):C=C+l 


IF J = HR THEN 215® 

IF NOT B THEN 228 

IFC=3 THEN U=U + 1:C = 1: GOTO 281% 

IF C= 2 THEN POKE U, PEEK (U) + 48: NEXT 

IF C= 1 THEN POKE U, PEEK (U) + 5: NEXT 

IF C=3 THEN POKE U, PEEK (U) + 64: U= U+ 1:0 =: 
NEXT 

IF C = 2 THEN POKE U, PEEK {U} + 8: NEXT 

IF C= 1 THEN POKE U, PEEK (U) + 1: NEXT 


FOR J = HR TO HL STEP - 1 
B= BA(J,I):C=C+l 
IF J = HL THEN 215ß 


IF NOT B THEN 212# 

IFC=3 THENU=U+1:0= 1: 6G0T0 2118 

IF C = 2 THEN POKE U, PEEK (U) + 56: NEXT 

IF C = 1 THEN POKE U, PEEK {U} + 7: NEXT 

IF C = 3 THEN POKE U, PEEK {U) + 192:U=U+1:0=$: 
NEXT 

IF C = 2 THEN POKE U, PEEK (U) + 24: NEXT 

IF C= 1 THEN POKE U, PEEK (U) + 3: NEXT 

IF NOT B THEN 2199 

IF C=3 THEN U=U+1:C = 1: GOTO 2188 

IF C= 2 THEN POKE U, PEEK (U) + 48: CGOTO 2226 

IF C= 1 THEN POkE U, PEEK (U) + 6: GOTO 2228 

IF C = 3 THEN POKE U, PEEK (U) + 128 U=U+1:C=9® 
IF C= 2 THEN POKE U, PEEK (U) + 16 

IF C= 1 THEN POKE U, PEEK (U) + 2 

NEXT I 

IFC>dTHENU=U+NI 

POKE U,ß 


REM *#* Shape auf Diskette, Neustart 7 ** 

HCOLOR= B: FOR I = 216 TO 238: HPLOT 1,89 TO I,11]: 
NEXT : HCOLOR= 3 

POKE 233,8: XDRAW 1 AT 227,190: POKE 233,3: FOR I=]1 
TO 16: XDRAW 8 AT 227,188: FOR J = 1 TO 2506: NEXT : 
NEXT 

HOME : VTAB 22: PRINT "Shape auf Diskette schreiben ? 
(J/N): ":: GET E$: IF E$ < > "J" THEN 2326 

HOME : VTAB 22: INPUT "Name: SH.";N$: PRINT "Wird als 
SH."N$" abgespeichert." 

FF = 2: ONERR GOTO 314 

PRINT : PRINT CHR$ (4)"BSAVE SH."N$",A2B48,L"U — 2847 
HOME : VTAB 22: PRINT "Nochmal ? (J/N): ":: GET E$: 
IF E$ < > "J" THEN HOME : TEXT : GOTO 236% 

HOME : VTAB 22: HGR : PRINT ''Neue Tabelle ? (J/N): 
"»: GET E$: IF E$ < > !"'J" AND E$ < > "N" THEN 2339 
IF E$ = "J" THEN 1979 

N = 1:HS = 1: GOTO 111 

POKE 216,®: PRINT : PRINT CHR$ (4)"RUN TABLE. EDITOR" 
REM ** Bewegungen Cursor und Shape ** 

FH = (FH = ß): IF NOT FH THEN VTAB 21: HTAB 4: PRINT 
"tartpunkt setzen" 

IF FH THEN XA = 227:YA = 5B: POKE 233,96: GOTO 2419 
KA = 8T:YA = 80:N = T:Xl = 11:Yl = 11:XX = Xl:SY >» 
Yl: POKE 233,3: XDRAW N AT XA,YA: XDRAW 4 AT XKA,YA: 
GX= XA:CY = YA 

VTAB 22: HTAB 36: GET E$ 

IF ES <> "Jt AND ES < > "K" AND E$ < > "I" AND ES < 
> PM" AND E$ < > "S" AND ES < > "P'" AND E$ < > "IL" 
AND E$ < > CHR$ (27) AND E$ < > CHR$ (13) THEN 241® 
xXN=XA + ((E$ = "K") +6 * (FH= BAND ES = "K")) - 
((E$ = "J") +6 = (FH Ö AND E$ = "J")) 

YN = YA + ((E$ = "M") 6 = (FH= BAND E$ = "M")) - 
((E$ = "I"} +6 = (FH Ö AND E$ = "I")) 


u 


IF NOT FH THEN X1 = X1 + (E$ = "K") - (EB = "J") 
IF NOT FH THEN Yl = Y1 + (E$ = "M") - (E$ = "I") 
IF FH AND XN > 268 THEN XN = 268: GOTO 2419 


IF FH AND XN < 198 THEN XN = 198: GOTO 2410 

IF FH AND YN > 189 THEN YN 1d8: GOTO 2410 

IF FH AND YN < 28 THEN YN = 28: G0T0_2419 

IF FH AND E$ = "5" THEN HS = (HS = ß): IF HS THEN 
VTAB 21: HTAB A: PRINT "= Normal!: GOTO 2419 

IF FH AND NOT HS AND E$ = "S" THEN VTAB 21: HTAB 4: 
PRINT "piegeln ": GOTO 241 

IF FH THEN 259% 

IF E$ = CHR$ (27) THEN N = NL:HS = ß: POKE 233,96: 
GOTO 1249 

IF XN > 157 THEN XN = 157:X1 


21: GOTO 2419 


IF XN < 17 THEN XN = 17:X1 = 1: GOTO 2419 
IF YN > 158 THEN YN = 159:yY1 = 21: GOTO 2419 
IF YN < 18 THEN YN = 1B:Yl = 1: GOTO 241 


IF EH AND E$ = CHR$ (27) THEN FH = 6: HGR : GOTO 1119 
IF E$ = CHR$ (13) THEN 2689 

IF NOT FH AND E$ = "pP" OR E$ = "L" OR E$ = "S" THEN 
2636 

XDRAW N AT XA,YA: XDRAW N AT XN,YN:XA = XN:YA = YN: 
GOTO 241% 


XÄDRAW N AT XA,YA 
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Hans Gabriel 


Das Buch zum 
Apple-Writer II/IIe 






Be 1-55 u et 





G) Hüthig 


| „Das Buch zum Apple Writer II /lle“ Dienstprogrammen zur Pflege der 
Das Buch zum | wendet sich an er dieses Textver- | Daten und zu ihrem Einsatz in Einzel- 
Apple-Writer N /lle arbeitungssystem schon einsetzen oder und Serienbriefen befindet sich eben- 
einsetzen wollen. falls auf Diskette. 
Hans Gabriel | In einzelnen, in sich geschlossenen Ka- „Das Buch zum Apple Writer Il /lle“ be- 
piteln erlernt der Leser alle Funktionen handelt sowohl die alte Programmver- 
1986, 155 S., kart, DM 35,— und erzielt schnelle Erfolgserlebnisse. sion für den Apple Ilplus als auch die 
ISBN 3-7785-1234-X Im ersten Kapitel werden typische Ar- neue Ausgabe, die 128-kByte auf dem 
beitsstellungen der Textverarbeitung Apple Ile oder Apple lic unterstützt. 


und ihre systematische Bearbeitung 
vorgestellt. Das zweite Kapitel stellt in 
\ögischen Funktionsgruppen die Befeh- 
le vor, mit denen der Applewriter wäh- 
rend der Textarbeit direkt gesteuert 


werden kann, Kapitel 3 zeigt die Pro- .® 
grammierung des Äppiewriters in der y ‚go? 
Text-Kommando-Sprache TKS (WPL). es KESIC, 
Dazu werden Beispiele analysiert. Auf +" KIM 
der Begleitdiskette zum Buch, die sepa- ® ee 










rat bezogen werden kann, sind darüber 
hinaus umfangreiche Schwerpunkt- 
erklärungen enthalten, die über die 
Help-Funktion vom Benutzer abgerufen 
werden können. Eine kleine Adreß- 
datenbank mit den dazugehörigen 
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18 


2649 


2659 


2669 


2678 
2686 
2699 
2708 


2718 


2720 
2738 


2748 
2758 


2760 
2770 
2789 
2798 


2800 
2819 


2820 
2838 


2849 
2859 
2868 
2878 
2886 
2899 
2909 


2918 
2926 
2939 
2948 
2959 
2960 
2970 
2989 
2990 
3609 
361B 
3026 
3039 
3040 
3050 
3066 
3070 
3d80 


3099 
3199 


3i1® 


3128 


3139 
3149 


315% 
316% 
3178 


3189 
319 


3209 


IF E$ = "pP" AND B%{XL,Yl) 
XDRAW 6 AT XA,YA:XN = ZA:Y 
HCOLOR= 3: HPLOT XN / 7 + 
IF E$ = "L" AND BZ(XL,Yl) 
XDRAW 6 AT XA,YA:XN = XA:YN 
HCOLOR= 8: HPLOT AN / 7 +2 
GOTO 2410 

IF E$ = "S" THEN XDRAW A AT XA,YA:SX = X1:SY = Yl: 
XDRAW A AT CX,CY: XDRAW N AT XA,Ä\YA:XN = XA:YN = YA:CX 
= XA:CY = YA: GOTO 2419 

XDRAW N AT XA,YA: GOTO 2419 

RETURN 

REM ** Gelesene Bytes in Feld B(X1,Yl) eintragen ** 
IF A= ® THEN FOR K = 1 TO T:A(K) = B: NEXT : GOTO 
2859 

IFA>=64 THEN A(7 -6 HS) = 1:A=A - 64: GOTO 
2730 

Al7-6+sHS5) = 9 

IF A> = 32 THEN A(6 - 4 = HS) = 1:A 
2759 

A(6 - 4 x HS) = 


HEN XDRAW N AT a 
A:BZ(XL,Y1) = 

N/T+ 8: a 24119 
THEN XDRAW N AT nn 
YA:BZ(X1,Y1) = 

YN / 7 + 89: a 3: 


Ii D = N 


Ö 
iD, 
1 
15, 


A- 32: GOTO 


IFA>= 16 THEN Al5 - 2 # HS) = 1:A= A - 16: GOTO 
2770 

A5-2= HS) = 

IFA>=8 THEN A(4) = 1:A = A —- 8: GOTO 2799 

A(4) = B 


IF A>=4 THEN Al3 +2» HS) = 1:A=A - A: GOTO 
2819 

A3+2%&HS) = 9 

IFA>=2 THENA(22 +r4x HS) = 1:A 
2839 

A2+4% HS) = 

IFA>=I1THEN All +6x HS) = 1:A=A - 1: 607 
2850 

AllL+6»#HS) = dB 

Me 

IF I=® AND HS THEN I = 2: GOTO 2889 


A - 2: GOTO 


IFI=2 AND HS THENI= 9 

FORK=1T07 

X=M*+K+1x#49 +19:X11=K+1x«7 

IF A(K) = 1 THEN XDRAW 6 AT X,Y: HCOLOR= 3: HPLOT X / 


7 +215,1Y / 7 + 89: GOTO 2929 

HCOLOR= ®: HPLOT X / 7 + 215,Y / 7 + 89: HCOLOR= 3 
BZ(X1,Y1) = A(K) 
NEXT 

I=H 

RETURN 

REM *%* Bildaufbau ** 
HOME : HGR : FOR IT = 
POKE 233,3 

FOR I = 13 TO 16% STEP 7: HPLOT 1,6 TO 1,153: NEXT 
FOR I = 6 TO 153 STEP 7: HPLOT 13,1 TO 169,1: NEXT 
HPLOT 216,39 TO 238,39 TO 238,61 TO 216,61 TO 216,39 
DRAW 9 AT 228,37 

HPLOT 216,89 TO 238,89 TO 238,111 TO 216,111 TO 
216,89 

DRAW 18 AT 228,87 

FOR I = 1 TO 32: READ A,B,C: DRAW A AT B,C: NEXT 


2048 TO 2359: POKE 1,8: NEXT : 


DATA 1,8,18,5,8,38,1,5,73,3,10,73,1,5,.188,5,18,19@8,2,5, 


143,3,19,143 


DATA 1,17,2.5.45,.2.1,77.2,.3.82,2.1,112,2,3,.117,2,.2. 147, 


2.3.152,2 

DATA 1,166,10,5,166,38,1,163,73,3,168,73,1,163,198,5, 
168, 168,2,163,143,3,168,143 

DATA 1, 17. 157.545, 157. 1,.%01,197.3.22,157 1,112, 157, 5 
j17 157.2, 147.1597.3,1527157 

POKE 233,96: XDRAW N AT 227,50: POKE 233,53 

VTAB 21: HTAB 1: PRINT "<S>piegeln": VTAB 21: HTAB 
36: PRINT "T" 

VTAB 22: HTAB 1: PRINT "<P>unkt, <L>oeschen 

Cursor ->": VTAB 22: HTAB 35: PRINT "J": VTAB 22: 
HTAB 37: PRINT "K" 

VTAB 23: HTAB 1: PRINT "<RET> Editier-Ende": VTAB 23: 
HTAB 36: PRINT "M": RETURN 

REM x* Fehlerbehandlung *% 

HOME : VTAB 22: IF PEEK (222) = 6 THEN PRINT "Diese 
Tabelle ist nicht auf der Disk !": GOTO 319 


IF PEEK (222) = 9 THEN PRINT "Die Diskette ist voll 
In: GOTO 3198 

IF PEEK (222) = 8 THEN PRINT "Diskette defekt oder 
Laufwerk offen !": GOTO 319% 

IF PEEK (222) = 4 OR PEEK (222) = 18 THEN PRINT 
"Disketten,- File-Schreibschutz !": GOTO 3199 


PRINT "Eingabefehler !" 


FOR I = 1 TO 2608: NEXT : POKE 216,8: ON FF GOTO 


1676 , 2298 
TEXT : HOME : PRINT : PRINT CHR$ ({4)"CATALOG": GET 
E$: PRINT : GOTO 1970 


SHAPE.CREATE 


1909 
1919 
1928 
1938 
1849 


1958 
126% 
1878 
1089 
1998 
1188 
1116 
112% 
1138 


1148 
1159 
116% 
1178 
1188 


REM ** Shape.Create ** 

REM ** Wolfgang Landgraf, Juni 86 *#* 

REM x* Start des Programmes bei $4BPß x** 

D$ = CHR$ (4):9$ = "!" 

IF PEEK (184) < > 64 THEN POKE 193,1: POKE 104,64: 
POKE 16384,®: PRINT D$"RUN SHAPE. CREATE" 


TEXT; HOME 

IF PEEK (768) < > 1@ THEN PRINT D$"BLOAD ST,EDIT" 
FOR I = 8 TO 39: PRINT "-";: NEXT 

PRINT " SHAPE. CREATOR" 

FOR I = 8 TO 39: PRINT "-";: NEXT : 

POKE 34,4 

REM ** Wahl der Tabelle #* 


POKE 232,6: POKE 233,3:TA = 24576 

VTAB 7: PRINT "<N>eue Tabelle": PRINT "<L>ade 
Tabelle" 

VTAB 18: HTAB 1: PRINT "Wahl „.. ";: GET E$ 
IF ES < > "L" AND E$ < > "N" THEN 1149 

IF E$ = '"'N" THEN 127% 

VTAB 12: HTAB 1 
INPUT "Tabelle {('?' 
(N$,1) = "?") GOTO 3088: ON ( LEFT$ (N$,1) 
1138 


= Catalog): ":N$: ON ( LEFT$ 
= 0$) GOTO 


1198 FF = 1: ONERR GOTO 2938 

12d® PRINT CHR$ {4)"BLOAD"N$", A$6PBR":N1$ = N$ 

1216 N = ( PEEK (TA + 2) + 256 « PEEK (TA + 3) - 2) /a2 

12268 SN = PEEK (TA): PRINT : IF SN = N THEN PRINT "Tabelle 
voll": FOR I = 1 TO 1689: NEXT : GOTO 195% 

1238 PRINT "Die Tabelle kann ";N;" Shapes haben !'": PRINT 

1248 PRINT "Jetzt hat sie ";SN;" Shape(s) !": PRINT 

1258 FOR I = 1 TO 2ß0P: NEXT 

1266 GOTO 133% 

1278 VTAB 12: HTAB 1: INPUT "Anzahl der Shapes in der 


1289 
1296 


Tabelle :";E$:N = 
1278 

IN=2#N +2 
FOR I = TA TO TA + TN: POKE L,ß: NEXT I 


VAL (E$): IFN< 1 0ORN > 255 THEN 


1300 POKE TA + 2,TN — 256 = INT (TN / 256) 

1318 POKE TA + 3, INT (TN / 256) 

1328 REM ** Startbedingungen bestimmen ** 

1338 XM = 169:YM = 153 

1340 DIM B%(21,21) 

13508 GOSUB 2789 

1368 FF = 3: ONERR GOTO 2939 

1378 U = TA + PEEK (TA + SN = 2 +2) + 256 + PEEK {TA + SN 
*2+35) 

1386 FOR I = U TO U + 3ß2: POKE 1,®: NEXT 

1390 XA = 87:YA = 89:X1l = 11:Y1l = 11:5X = X1:5Y = Tl: 


1409 
141® 
1428 


1439 
1448 
1458 
1466 
1478 
1489 
1496 
1598 
1516 


1528 
1530 


1548 
1559 


1569 


157 


158® 
1598 
1699 


161 
1626 


XDRAW 7 AT XA,YA: XDRAW 4 AT XA,YA:CX = XA:CY = YA 
REM #* Tastatureingabe ** 

VTAB 22: HTAB 36: GET E$ 

IF ES <> "J" AND Eß < > "K" AND ES < > "I" AND ES < 
> ty AND E$ < > "S" AND ES < > "P" AND ES < > "L" 
AND E$ < > CHR$ (27) AND E$ < > CHR$ (13) THEN 1419 
XN=XA+ (EEE = "K") «7 - (EIS = "J") «7 

YN = YA+ (E$ = '"M") « 7- (E$ = '"T") #7 

xi=Xl+ ((E$ = '"K") - (EB = "U" 

Yı=Yl+(E$ = '"M") - (EB = "T") 

IF XN XM - 3 THEN XN = XM - 3:X1 = 21: GOTO 1419 

IF XN 17 THEN XN = 17:X1 = 1: GOTO 1419 

IF YN YM - 3 THEN YN = YM - 3:Y1 = 21: GOTO 141 
IF YN 18 THEN YN = 18:Yl = 1: GOTO 1419 

IF E$ CHR$ (13) THEN XDRAW 7 AT XA,YA: XDRAW 4 AT 
CX,CY: GOTO 1699 

IF E$ = "pP" OR E$ = "L" OR E$ = "S" THEN 1548 

XDRAW 7 AT XA,YA: XDRAW 7 AT XN,YN:XA = XN:YA = YN: 
GOTO 1419 

XDRAW 7 AT XA,YA 

IF E$ = "P" AND BZ(X1,YL) = ® THEN XDRAW 7 AT XA,YA: 
XDRAW 6 AT XA,YA:XN = XA:YN = YA:BZ(XL,Y1) = 1: FORI 
= # TO 3 STEP 3: HCOLOR= I: HPLOTXM + 15 + X1,7 + \ 
+34 « (I = 3): NEXT : GOTO 141 

IF E$ = "L" AND BZ(X1,Yl) = 1 THEN XDRAW 7 AT XA,YA: 
XDRAW 6 AT XA,YA:XN = XA:YN = YA:BS(XL,Y1l) = B: FORI 
= 3 TO Ö STEP - 3: HCOLOR= I: HPLOT XM + 15 + X1,7 + 
Ylı +34 « (I = $): NEXT : GOTO 1419 

IF E$ = "S" 'THEN XDRAW A AT XA,YA:SX = X1:SY = 
XDRAW 4 AT CX,CY: XDRAW 7 AT XA,YA:XN = XA:YN = 
= XA:CY = YA: GOTO 141% 

XDRAW 7 AT XA,YA: GOTO 141% 

REM #* Eckpunkte festlegen #*#* | 
HOME : VTAB 22: PRINT "Shape wird berechnet, bitte 


I AVWAM 


ns ck 


warten ow:X1l = 6:Y\ = GEBE = 
a a a 
FOR Xl = 1 TO 21:B = B + BZ(X1,Yl): NEXT 


Peeker 1/87 


1638 
164 
165# 
1669 
167% 
168® 
1696 
1788 
1718 
1728 
1738 
174 
1759 
176% 
1778 
1786 
1798 
1888 
1819 
182® 
183% 
1849 
1856 
1860 
1878 
188% 


1898 


1999 
1919 
1928 
1938 
1949 
1959 


1969 
1979 
1989 
1998 
2899 
2819 


2020 
2038 
2840 
2858 
2060 
2070 
208% 
2899 
2108 
2118 
2128 
2138 
2149 
2156 
216 


2170 
218 
2198 
2200 
221 
2220 
2230 
2240 
2256 
2260 


2276 
2280 
2296 
2509 
2310 
2326 
2330 
2340 
2358 
2360 
2376 
2380 
2390 
2409 


2419 
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IF B= ® THEN 1619 

HO = Yl:Y\=-1:B=% 

Ylı=Yl+1:Y2 =21-\Yl 

FOR X1 = 1 TO 21:B = B + BZ{XL,Y2): NEXT 
IF B= 6 THEN 165% 

HU= 32.1 209-9 

xl al 41 

FOR Yl = 1 TO 21:B = B + B%[XL,YL): NEXT 
IF B= ß THEN 1699 


KE 
Es 
| 


=X1:{\1=-1B=% 

xl = X1l+ 1:22 =21-Xl 

FOR Y1 = 1 TO 21:B = B + BZ(X2,Y1): NEXT 

IF B= $ THEN 1739 

BR 2 0 em ge pp U = U = 1] 

REM #* Vektoren bis zur oberen linken Ecke poken #** 
IF SY > HO THEN 1869 


IF SY = HO THEN 1998 

C=H0 - SY 

I[=1I+1 IFC=dTHENI=I-1l 

IF C>= 3 THEN POKE U+ I1,146:0 = C - 3: GOTO 1819 
IFC>= 2 THEN POKE U + 1,144:0 = C - 2: GOTO 1819 


IF C>= 1 THEN POKE U + 1,139 

GOTO 1999 

C=SY - HÖ 

I=I+1l:  IFC=B8THENI=I-]l 

IE G >= 2 THEN FORE U + 7,2165 FOREU FI Hr 1,0721 = 


T+1:0=C - 2: GOTO 1878 


Irn67 = — 1. IHNEN FORE U 1,216 P0ORE U 1 1,78: 
FORE U + I #+2,2835: 1 = 1 +2 

IF HL > SX THEN 1989 

IF HL = SX THEN 2838 

G=SX - HL 

I=1I-+]1 

IFCG>= 3 THEN POKE U + IT,219:C = C - 3: GOTO 1939 
IF C> = 2 THEN FPOKE U + 1,219: POKE U+ I + 1,2ß1:1 


= I + 1:0 =C - 2: GOTO 1939 

IF C> = 1 THEN POKE U + I,91 

GOTO 2830 

C=HL - 5X 

TI Fell 

IF C> = 3 THEN POKE U + 1,73:0 = C - 3: GOTO 1999 
IEG >= 2 THEN ’FORE U + 1.753: PORE U 1 1,931.1 
I+1:C=C - 2: GOTO 1999 


IFG>= |] THEN POKE U + I,75 

T-0 37-0 

J Jet 12 12= PEEK {U + J): IFI< > ® THEN 2849 
veur)dgedcleh 

FOR I = HO TO HU:A = (A = $) 


IF I = 22 THEN 2379 
IF A= ß THEN 219 
FOR J = HL TO HR 

B= BAlJ,I):CO=C+l 


IF J = HR THEN 229% 

IF NOT B THEN 216% 

Te C& = 3 THEN U U 2 e -91:.6070 2159 

IF C = 2 THEN POKE U, PEEK (U) + 49: NEXT 

IF C = 1 THEN POKE U, PEEK (U) + 5: NEXT 

IF C = 3 THEN POKE U, PEEK (U) + 64:U = U+ 1:0 = $: 
NEXT 

IF C = 2 THEN POKE U, PEEK (U) + 8: NEXT 

IF C = 1 THEN POKE U, PEEK {U) + 1: NEXT 

FOR J = HR TO HL STEP - 1 

Be BEL 1 cH4 7 

IF J = HL THEN 229% 

IF NOT B THEN 2269 

Te & = 3 SHEN U) - Ur L:e = 1.6070 2259 

IF C= 2 THEN POKE U, PEEK (U) + 56: NEXT 

IF C = 1 THEN POKE U, PEEK (U) + 7: NEXT 

IF C = 3 THEN POKE U, PEEK (U) + 192:U=U+1:C=B: 
NEXT 

IF C = 2 THEN POKE U, PEEK (U) + 24: NEXT 

IF C= 1 THEN POKE U, PEEK (U) + 3: NEXT 

IF NOT B THEN 2338 

Ier6= 2 TEEN U Ur ]:Ee >= 1: .€E070 22329 

IF C = 2 THEN POKE U, PEEK {U} + 48: GOTO 236® 

IF C = 1 THEN POKE U, PEEK (U) + 6: GOTO 2368 

IF C = 3 THEN POKE U, PEEK (U) + 128:U=U+1l:C=9 
IF C = 2 THEN POKE U, PEEK {U) + 16 | 
IF GC= 1 THEN POKE U, PEEK {U} + 2 

NEXT I 

IFC>6THENU=U+rl 

POKE U,® 


REM #x* Anzeigen des Shapes; Frage, ob anhängen *x* 
POKE TA,SN + 1: POKE 233,96: XDRAW SN + LATXM + 15 
Fosa, ro Fl. PORE 232.5. FORE IN.SN. EUR TO] 76 
18: XDRAW 8 ATXM + 15 + SX,75 + SY: FOR J = 1 TO 59: 


NEXT : NEÄT 
HOME : VTAB 22: PRINT "Save Shape-Nr.";SN + 15" 
(J/N)";: GET E$ 


2420 


2430 
2449 
2450 


ZA6B 
2AT70 
2480 
2499 
2500 
251% 
2528 


253% 


2549 
2559 


2560 
2570 


2589 


2590 
2608 


261% 


2628 
2650 
2649 
2650 


2669 
2678 
2689 
2630 
2700 


2718 
2728 
2738 


2748 
2750 


2760 
2770 
2780 
2790 
2829 
2818 
2828 
2830 
2840 
2850 
2860 
2870 
2880 
2890 


2909 


2918 


2928 
2939 


2948 
2959 


2969 
2978 


2988 


2999 
Spas 
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HCOLOR= 6: FOR I = XM + 153 TO XM + 43: HPLOT 1,65 TO 
I,168: NEXT HCOLOR= B:A = ® 

IF E$ < > "J" AND E$ < > "N" THEN 2419 

U=U+rl 

IF E$ = "J" THENSN=SN+ 1: IFSN<N THEN TN = U- 
TA: POKE TA +2 & SN + 2,TN - 256 * INT (TN / 256): 
POKEnTA +2 # SN +3, INT (TN / 256) 

POKE TA,SN 

REM ** Anzeige Auswahlmenu xx 

HOME : VTAB 21: PRINT "({N)eues Shape zeichnen’ 

VTAB 22: PRINT "(Z)eigen der Shapes" 

VTAB 23: PRINT "(T)able auf Diskette ";: GET ES 

ON (E$ = "T") GOTO 2688: ON (E$ = "Z") GOTO 2570 

IF SN= N THEN HOME : VTAB 22: PRINT "Die Tabelle ist 
voll !": FOR I = 1 TO 2899: NEXT : GOTO 2489 
HOME : VTAB 22: PRINT "Rahmen löschen (J/N): ";: 
E$ 

IF ES = nn" 
IF E$ = 11, TH 





GET 


THEN GOSUB 2898: GOTO 1379 

THEN HOME : VTAB 22: PRINT "Raster wird 
gelöscht I! EOR I -= 17021: FOR J = 1 'I0 2T:B21 8, J) 
= 6: NEXT : NEXT : GOTO 1359 

REM *»* Zeigen der bisher definierten Shapes xx 

IF PEEK (TA} = ® THEN HOME : VTAB 22: PRINT "Es ist 
kein Shape definiert !": FOR I = 1 TO 2808: NEXT : 
GOTO 2489 

HOME VTAB 22: PRINT "<- ,„ -> <RET> = Ende'':Nl = 1:M 
= \: POKE 233,96: XDRAW NL AT XM + SX + 15,8Y + 186 
VTAB 23: HTAB 1: PRINT "Shape-Nr.: "NI" '!";: GET E$ 
IF E$ < > CHR$ (8) AND E$ < > CHR$ (21) AND E$ < > 
CHR$ (13) THEN 259% 

IF E$ = CHR$ (13) THEN XDRAW N AT XM + SX + 15,5Y + 
18%: POKE 233,3: GOTO 2489 

M=M+ (ES = CHR$ (21)} - (E$ = CHR$ (8)) 

IFM<1 THENM=SN 

IFM>SNTHENM=1 

XDRAW N1 AT XM + 5X + 15,SY + 190: XDRAW M AT XM + SX 
+ 15,SY + 180:N1 = M 

GOTO 2599 

REM #* Tabelle auf Diskette x** 


FF = 2: ONERR GOTO 2939 

HOME : VTAB 22: PRINT "Name: { "Nl1$" ) = <RETURN>" 
VTAB 23: INPUT " "NS: IE N$ = "" THEN N$ = N1$: 
GOTO 2749 

PRINT "Wird als ST."N$" abgespeichert." 


PRINT D$"BSAVE ST."N$",AB6BBD,L’U - TA+1 

N1$ = "ST." + N$: GOTO 2750 

PRINT D$"BSAVE"TNS", A$SBAd,L"U - TA+ 1 

HOME VTAB 22: PRINT "Weiter {J/N): ";: GET E$: ON 
(ES = "J") GOTO 2489: ON (E$ = "N") GOTO 2760: GOTO 
2759 

POKE 216,9: TEXT HOME : 
REM ** Bildschirmaufbau ** 
HGR : HCOLOR= 3: ROT= : SCALE= 1 


PRINT D$"RUN TABLE.EDITOR" 


FOR I = 13 TO AM STEP 7: HPLEOET 1,6 TO L,YM: NEXT 
FOR I =6 TO YM STEP 7: HPLOT 13,1 TO XM,I: NEXT 
FOR I = 1 TO 32: READ A,B,C: DRAW A AT B,C: NEXT 


DATA ]1,3,19,5,3,38,.1,5,73,3,19,73,.1.5.108,5,10,103,2, 
5.143 .3,.10, 143 

DATA ],17.2,5.45,.2,.1,77,2.3.82 2,1 112,2.5,117,2,2.147, 
2.3.lo2.2 

DATA 1.166, 10,5,166,38.1,163,73,5,168.73,1,.163,108,5, 
168,108,2.163,143,53,168,143 

DATA LT. 1or.0,.do, 1ER er 197,8 82.180.212. 112.195, 
117,1597,2.147,157,3,152,157 

RESTORE :A = ® 

FOR I = 6 TO 38: HPLOT XM + 14,1 TO XM + 38,1: NEXT 
HPLOT XM + 14,408 TO XM + 38,48 TO XM + 38,64 TO XM + 
14,64 TO XM + 14,49 


HOME : VTAB 21: HTAB 1: PRINT "<S>tartpunkt setzen": 
VTAB 212 HTAB 36: 'FRINT HT" 

VTAB 22: HTAB 1: PRINT "<P>unkt, <L>oeschen 

Cursor —>": VTAB 22: HTAB 35: PRINT "J": YTAB 22: 
HTAB 37: PRINT RE 

VTAB 23: HTAB 1: PRINT "<RET> Bditier-Ende'": VTAB 23: 


HTAB 36: PRINT "M": RETURN 

REM *»* Fehlerbehandlung #* 

HOME : VTAB 22: IF PEEK (222) = 56 THEN PRINT "Diese 
Tabelle ist nicht auf der Disk !": GOTO 2979 

IF PEEK (222) = 9 THEN PRINT "Die Diskette ist voll 


I": GOTO 2978 
IF PEEK (222) = 4 OR PEEK {RAR} = 18 THEN PRINT 
"Disketten,— File-Schreibschutz !": GOTO 2979 


PRINT "Eingabefehler !" 
FOR IL = ] TO 2B80: NEXT : 
1170,2680,2980 

HOME : VTAB 22: PRINT "Wenigstens ein Punkt muss 
gesetzt sein !": FOR I = 1 TO 2080: NEXT : GOSUB 
2899: GOTO 136ß 

REM ** Catalog der Diskette ** 

PRINT : PRINT D$"CATALOG": GET E$: HOME : 


POKE 216,8: ON FF GOTO 


GOTO 117 
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Der Trace-Fehler ım 
BASIC.SYSTEM 





oder wie man Katastrophen vermeidet 


Cogito ergo erro 
Ich denke, also irre ich mich 
(freinach R.Descartes) 


Nachdem sich das BASIC.SYSTEM seit 
nunmehr rund zwei Jahren auf dem Markt 
befindet und damit von Tausenden im 
praktischen Einsatz getestet wurde, hat 
nun ein Autor der amerikanischen Zeit- 
schrift „Call A.p.p.l.e.“ einen Program- 
mierfehler ans Tageslicht gebracht, der 
dort jedoch nur angedeutet, aber nicht be- 
hoben wird. Das Erstaunliche an diesem 
Fehler: Es handelt sich nicht um eine exo- 
tische Kleinigkeit wie z.B. die CATALOG- 
und $48-Bugs von DOS 3.3, über die sei- 
tenlange Artikel geschrieben worden sind, 
sondern um einen kompletten Systemab- 
sturz, der bei der Arbeit mit Applesoft je- 
derzeit auftreten kann und unter Umstän- 
den das Programm zerstört. Die in diesem 
Beitrag vorgeschlagene Korrektur ist des- 
halb für jeden Applesoft-Programmierer 
eine unbedingte Notwendigkeit. 


1. Auftreten und Auswirkungen 


Das BASIC.SYSTEM benutzt die TRACE- 
Funktion von Applesoft zur ständigen 
Überprüfung des Programmablaufs: 

® Beim Start des BASIC.SYSTEMs wird 
das TRACE-Flag von Applesoft gesetzt 
und bleibt von da an ständig aktiv. Der 
Befehl NOTRACE wird vom BASIC.SY- 
STEM unwirksam gemacht. 

® Applesoft gibt bei der Ausführung eines 
Programms jeweils ein TRACE-Zeichen 
aus, wenn eine der beiden folgenden Be- 
dingungen erfüllt ist: 
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— Der nächste Befehl befindet sich am 
Anfang einer Programmzeile. 

—- Innerhalb einer Programmzeile wurde 
ein Doppelpunkt („:*) als Trennzeichen 
zwischen zwei Befehlen erkannt. 

® Die Ausgabe des TRACGE-Zeichens 
führt zu einem Sprung in das BASIC.SY- 
STEM, wo dieser „nächste Befehl” über- 
prüft wird. FLASH schaltet z.B. die interne 
TRACE-Erkennung um. PRINT bewirkt, 
daß die nächste Ausgabe auf „Control-D“ 
geprüft wird usw. 

® Die Überwachungsroutine arbeitet nur 
dann korrekt, wenn der „nächste Befehl“ 
am Anfang einer Zeile bzw. nach einem 
Doppelpunkt zulässig ist. 


Unter „unzulässig“ ist jeder Befehl als 
Applesoft-Token zu verstehen, der nur in 
Kombination mit anderen Befehlen ausge- 
führt werden kann und nicht am Anfang 
einer Zeile stehen darf, also: 

— TAB(, SPC = nur nach einem PRINT- 
Befehl erlaubt; 

— TO, STEP = nur nach einem FOR- 
Befehl erlaubt; 

- FN, AT =- nur nach DEF bzw. HLIN/VLIN 
erlaubt; 

— AND, NOT, OR =- logische Operatoren; 
-+,-.,%/, 1,>,<, = - arithmetische 
und relationale Operatoren; 

— SGN, INT, ABS, ... = sämtliche Funk- 
tionen 

Wird eines dieser reservierten Wörter in 
einem Variablennamen verwendet, rea- 
giert Applesoft normalerweise mit einem 
„SYNTAX ERROR“ und bricht die Pro- 
grammausführung ab. Unter dem BASIC. 
SYSTEM führt derselbe Fehler nicht zu 
einer Meldung, sondern zu einem Sy- 
stemabsturz. Beispiele: 


10 NOTENWERT = 4 

Diese Zeile wird von Applesoft als 10 NOT 
ENWERT = 4 gelistet. Ihre Ausführung 
erzeugt unter der Version 1.1 des BASIC. 
SYSTEMs die Ausgabe von #10, danach 
hilft nur noch ein RESET weiter. Unter der 
Version 1.0 hat eine Zeile wie 

10 POSITION = 100 

dieselbe Wirkung. 


10 ORDNUNG = X 

Diese Zeile wird von Äpplesoft als 10 OR 
DNUNG = X gelistet. Unter der Version 
1.1 bewirkt ihre Ausführung, daß das Volu- 
me-Directory der zuletzt benutzten Dis- 
kette in einer Endlosschleife immer wieder 
gelesen wird. Unter der Version 1.0 wird 
#10 ausgegeben, danach hängt das Sy- 
stem, 


Unter der Version 1.1 führt eine Zeile, die 
mit einem Pluszeichen beginnt, bei drei 
von fünf Versuchen zum Verlust des kom- 
pletten Programms. Dasselbe ist unter der 
Version 1.0 für den Befehl USR der Fall. 
Abhängig davon, ob das System mit einem 
6502 oder 65C02 ausgerüstet ist, ergeben 
sich unterschiedliche Auswirkungen man- 
cher Befehle. Der 65C02 führt nicht-defi- 
nierte Opcodes als NOPs aus, der 6502 
kommt dabei völlig durcheinander. 


2. Detaillierte Herleitung 


Um den Ablauf eines Applesoft-Pro- 
gramms nicht mehr als unbedingt nötig zu 
verlangsamen, ist die Überwachungsrouti- 
ne des BASIC.SYSTEMs auf maximale 
Geschwindigkeit optimiert worden und ar- 
beitet mit einem selbstmodifizierenden 
Sprung. Disassembler-Listing 1 gibt die 
relevanten Stellen der Version 1.1 wieder, 
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PRodos 





Disassembler-Listing 2 die Sprungtabel- 
Ile. Der Ablauf für die Version 1.0 ist exakt 
derselbe, nur daß die absoluten Adressen Disassembler-Listing 1 
unterschiedlich sind: 


e n 9ECE- AD 90 LDY  &#$80 

— Auslesen des „nächsten Befehls“ von SECB-  B1 B8 LDA ($B8),Y ;‚ Ist das nächste Statement 
Applesoft. Dieser Befehl ist als „Token“ gECA- 30 25 BMI $9EF1l ein Token? Sprung wenn ja 
kodiert, wird also durch ein Byte darge- oe = = un en 
stellt, dessen Wert zwischen $80 und $FF ; ("automatisches" FRE bzw. Test) 
liegt. SEES- AB 0 LDY  #$09 ; weiter in Applesoft: 
= 9EEA- Bl B8 LDA  ($B8),Y ; Simulation von CHRGOT 

Der Wert des Tokens wird zur direkten en CHP #834 ing 
Adressierung einer Tabelle verwendet. 9EEE- AC 208 DB JUMP  $D82g ; Applesoft: GOCMD, NEWSTT (vgl. $9F2F) 


Wenn das dort gelesene Byte einen Wert . 
Nächstes Byte im Applesoft-Programmtext ist Token 














größer/gleich $80 hat, folgt ein direkter SEFI- 85 33 STA 333 as prompt” 
Sprung zu Applesoft, ansonsten wird es | 9SEF3- A8 DAY. ’ ; Vergleich mit er Adressierung 

ion: 9EFA- BS 99 B7 LDA B799,Y% über das Token ($89..$BF) 
als „Sprungoffset” eingesetzt. 9EFT- 30 F5 BMI  $9EEE ; ok - keine Aktion 

n Be 9EF9- 8D FD 958 STA $9EFD ; Tabellenwert => Sprungöffset 
> Ausführung des soeben modifizierten 9EFC- DÖ x** BNE $Ixr* ; dieser Sprung wird modifiziert! 
Sprungs. Für PRINT und IF ergibt sich ein ers e 2 er an De ; a Re 2 
ir e E _ : ie ; <- kein angen doppelter <ÜCR>s 

„Sprungoffset“ von $00 und damit die | or@3- AD 03 BB LDA $B8B3 ; VSYSOUT auf STATE 4/8 ($9DA3): 
Fortsetzung des Programms auf der 9Fß6- 8D 38 BE STA VSYSOUT Wenn als nächstes ein Ctrl-D aus- 

7 . 9Fß9- AD BA BE LDA $B8ß4 gedruckt wird -> State 8, ansonsten 
Adresse $9EFE, für LIST eın Sprung zu 9FdC- 8D 39 BE STA VSYSOUT+1 zurück zu State 4 
SYF11 usw. SFOF- DE ID BNE $9F2E ; "always: NEXT STATEMENT 
— Je nach Art des Befehls werden ver- 9Fll- AS Bl LDA  #$B1 ; LIST-Befehl: $33 = Öl - nur relevant 
schiedene Flags des BASIC.SYSTEMs 9FLZ- 85 33 STA 833 aan 





gesetzt. Die TRACE-Kontrollroutine endet Scmummssmnnee 
SF15- DA 17 BNE S$9F2E ‚ Ausführung Applesoft-Statement 


in jedem Fall mit einem Sprung in den 
Applesoft-Interpreter hinein, wo der Be- 9F17T-  A9 BR LDA  #$ß2 : CALL-Befehl: $33 = #2 - nur relevant 
fehl schließlich ausgeführt wird. 9F19- Bose STA $33 für Ausgabe in eine OUT-Datei 

, De SFlB- D@ 11 BNE $9F2E : Ausführung Applesoft-Statement 
Sämtliche „zulässigen“ Befehle von Ap- 

i . 9F1D- 98 TYA : LET-Befehl: Test Stringspeicherplatz, 
plesoft haben Tokens im Wertebereich SFlE- 4C CE 9E JMP _S$9ECE danach Ausführung des Statements 
von $80..$BF. Die Sprungtabelle hat des- 

\ 9Fr24- DB 84 BNE  $9F2A und Applesoft TRACE-Flag ON 
Begrenzung des Token-Wertes auf den 
Bereich $80..$BF fehlt, führen „unzulässi- 9F26- 8D 41 BE STA  _DTRACE : NOTRACE: DTRACE aus (Acc < $7F) 
te n 9F29- 88 DEY : "NOTRACE": $9C, "TRACE": $9B 
ge” Befehle über das Tabellenende hin- 9F2A-  AY AA LDA  #$4A : Applesoft TRACE aus und danach 
aus und lesen Werte aus der nachfolgen- 9F2C- 85 F2 STA  $F2 ; Ausführung des Befehls "TRACE"(!) 


den Tabelle, die die Startindexe für den 


i : i Ausführung des Applesoft-Statements 
Vergleich mit der internen Kommando- 


mom >. nn m [m 














tabelle (CMDTAB) enthält. Die Version 1.1 et z ae ns Et ee rn er 
— ‚ -kOUuUTINenN a anac 
en das Komman- Kein Return! (Stack v, $9EBE gesetzt) 
o ‚ das in der Version 1.0 nicht ent- BG ee ru SEHE ser bill ge werte Has Bee Br ES BE TER SrEENES SEHE EB IIBEB ee 
halt ist. A di G desnadi SFrz2-  A9 09 LDA +09 ; RESUME-Kommando: setzt (222) auf 9%. 
Alena IE 9F34- 85 DE STA _$DE Das dürfte ein Bug Fix für 
Startindexe unterschiedlich — und damit 9F36- 98 TYA Applesoft sein. 
auch die Wirkung „unzulässiger“ Befehle. 9F37- DA BZ BNE $9EEC , "always": Ausführung RESUME 
Der modifizierte Sprung führt also „wild“ -Sprung hierher, wenn Applesoft TRACE an 
in den folgenden Code der TRACE-Über- a E pe 9A > a nr EBENEN 
wachung hinein — in den meisten Fällen OFSE- 20 ED FD JSR SFDED tn Arnekdn 
zwischen Opcodes und die dazugehöri- SFAl- AS 75 LDX en ; $75/76: (LINNUM): Zeilennummer 
ß = es 9F43- 45 76 LDA 76 in Applesoft 
gen Operanden. So ergibt sich z.B. für SF45- 2® 24 ED  JSR  $KkD24 ; Applesoft: "PRINT A-X dezimal" 
„OR“ in der Version 1.1 ein Sprungoffset 9F4A8- AI AB LDA  #$ag 
von $04 und die Befehisfolge LDX a ee 
S03AD,Y/CLV/STA $BES8,.,, jede nachfol- SESß- 38 SEC ; erst danach wird das nächste 
? s s : 9F54A-— 49 3 LDA +$E3 ; FLASH-Befehl: Applesoft druckt 
die CATALOG-Routine hinein. SF56- DB 82 BNE $9IF5A danach $E3 (FLASHING "#") bei TRACE! 
OF58-  AY9 AZ LDA #$A3 ; NORMAL und INVERSE: Applesoft druckt 
9FSA- 8D 61 9F STA  $9F6i wieder "#" bei TRACE 
3. TRACE.KORREKTUR | SF5D- 98 TYA 
SFSE- DB SC BNE $OEEC : EXEC STATEMENT 


Da eine Verlängerung der Sprungtabelle 

um $40 Bytes aus naheliegenden Grün- 

den ausscheidet, muß die TRACE-Kon- 

trolle um einen Test auf „Token größer 

$BF" und eine entsprechende Verzwei- 

gung erweitert werden. Zwei Möglichkei- | 

ten bieten sich dazu an: == 
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® Ein echter „Patch“ durch Ersetzen von 
drei Bytes durch einen „JMP" zu einer 
Routine, die sich in einem noch unbenutz- 
ten Speicherbereich des BASIC.SYSTEM 
befindet. Diese Routine holt die durch den 
„JMP" ersetzten Befehle nach, nimmt die 
Prüfung auf „größer $BF“ vor und springt 
sodann wieder zur TRACE-Kontrolle zu- 
rück. Obwohl innerhalb des Variablenbe- 
reichs des BASIC.SYSTEMs genügend 
Platz vorhanden wäre und die entspre- 
chenden Bereiche für die Versionen 1.0 
und 1.1 dieselbe Adreßlage haben, wurde 
diese Lösung aus zwei Gründen ver- 
worfen: 


— Das Startprogramm des BASIC.SY- 
STEM kopiert keine Daten in diesen Be- 
reich hinein. Es wäre also eine Zusatzrou- 
tine erforderlich, die für die Verschiebung 
der TRACE-Erweiterung an ihren richtigen 
Platz sorgt. Die Startprogramme der Ver- 
sionen 1.0 und 1.1 unterscheiden sich 
stark voneinander, die Zusatzroutine müß- 
te also versionsabhängig geschrieben 
werden. 


— Der Zeitbedarf der TRACE-Kontrolle 
würde durch die Sprünge für jeden Ap- 
plesoft-Befehl um rund 15 Mikrosekunden 
erhöht, die Ausführungsgeschwindigkeit 
eines Applesoft-Programms damit um 
rund 1% gesenkt. 


® Optimierung des Codes der TRACE- 
Kontrolle in einer Form, die vier Bytes 
freien Speicherplatz innerhalb der Routine 
selbst schafft und so den Einbau des Tests 
ermöglicht. Dieser Lösungsweg Ist zwar 
im Ansatz erheblich komplizierter, hat aber 
abgesehen von einer minimalen Ge- 
schwindigkeitseinbuße (vier Mikrosekun- 
den) den Vorteil, daß er versionsunabhän- 
gig geschrieben werden kann. Erfreuli- 
cherweise sind die TRACE-Kontrollen bei- 
der Versionen des BASIC.SYSTEMSs bis 
auf eine verschobene Adreßlage absolut 
identisch. 


Zur Ausführung 

Das Applesoft-Programm TRACE.KOR- 
REKTUR nimmt die Korrektur in vier von- 
einander getrennten Schritten vor. Die an- 
gegebenen Adressen gelten für die Ver- 
sion 1.1 des BASIC.SYSTEMs: 

1) Der Programmcode im Bereich $9EF4 
bis $9F31 wird um 2 bzw. 4 Bytes in 
Richtung höherer Adressen verschoben. 
Die im Disassembler-Listing 1 durch 
Trennstriche markierten Befehle werden 
dadurch überschrieben, der Bereich 
$9EF3..$9EF6 wird frei, 

2) Die Prüfung auf „größer $BF“ wird in 
den freigewordenen Bereich geschrieben, 
die Behandlung für LIST/CALL und TRA- 
CE/NOTRACE wird speicherplatzmäßig 
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Disassembler-Listing 2 


B8l9- 88 81 82 83 84 85 86 87 
BS21- 88 89 82 55 19 BD 8E SE 
B829- 98 91 92 93 94 95 96 97 
B83l- 98 99 YA 23 28 SA SA 56 
B839- AB Al AR AS A4 AS 34 AT 
BSAl—- A8 AQ IF AB AC BB AB AF 
B849- Bß Bi B2 B3 BA B5 B6 B7 
BS5Sl- B8 BIS BB BB 13 BD BE BF 


B859- 47 5F 18 38 15 BD 3D 28 
B8S6l- BD Ai 20 508 84 BD BA 46 
B8S69- 6A AC 50 35 A5 78 2D 12 
B87’1l- 65 39 4l 88 1C B5 D8 


; Applesoft-Tokens für die TRACE- 
Routine. Indiziert über das Token 
selber. MSB gesetzt: keine Aktion. 
MSB gelöscht: Sprung-Uffset 
innerhalb von VSYSOUT State 4 
"Spezielle" Tokens: 
CALL/TRACE/NOTRACE/NORMAL/INVERSE 
FLASH/RESUME/LET/IF/PRINT/LIST 


: Indexe für den Vergleich mit CMDTAB, 
Tabelien-Absuche von hinten, d.h 
Start mit BS5ß. Wenn MSB gesetzt, 
dann Kommandowort-Länge minus 1 


-CMDTAB — Tabelle mit den einzelnen Kommandoworten 


B878- 42 55 41 56 45 52 49 46 59 42 AG AF Al 44 45 AC 
54 A] AC AR AT AR 50 45 


B888- 45 54 45 AR 59 45 43 4] 


optimiert. Die Ausführung dieser vier Be- 
fehle benötigt danach eine Mikrosekunde 
mehr an Zeit und vier Bytes weniger Spei- 
cherplatz. 

3) Sämtliche relativen Sprünge, die sich 
auf die verschobenen Programmteile be- 
ziehen, werden entsprechend angepaßt. 
A) Die zur Ausführung von LET, CALL, 
TRACE und NOTRACE gehörigen Pro- 
grammteile haben sich relativ zu dem 
selbstmodifizierenden Sprung um jeweils 
zwei Bytes verschoben. Für NORMAL, IN- 
VERSE, FLASH und RESUME ergibt sich 
eine Verschiebung um vier Bytes. Die 
Sprungtabelle wird für diese Befehle an- 
gepaßt. 


Literatur 

A.Schäpers, Das BASIC.SYSTEM. Lese- 
buch, Analyse, Tips und Tricks 
Heidelberg 1986 


Kurzhinweise 


1. Zweck: 

Korrektur des Trace-Fehlers im BASIC. 
SYSTEM 

2. Konfiguration: 

II+/e/c; ProDOS-BASIC.SYSTEM 1.0 
oder 1.1 

3. Test: 

a) ProDOS und BASIC.SYSTEM starten 
b) LOAD TRACE.KORREKTUR 

c) Für BASIC.SYSTEM Version 1.1: keine 
Änderung 

d) Für BASIO.SYSTEM Version 1.0: Zeilen 
330 und 340 anpassen 


BSAVERIFYBLOADEL 
ETEBYECATALOGOPE 


e) RUN 

f} Diskette mit BASIC.SYSTEM einlegen 
9) <Return> drücken. Nach rund 10 Se- 
kunden wird die korrigierte Version des 
BASIC.SYSTEM wieder auf die Diskette 
zurückgeschrieben und automatisch ge- 
startet. 

4. Sammeldisk: 

TRACE.KORREKTUR 

5. Sonstiges: 

Programm TRACE.KORREKTUR muß zu- 
nächst mit CONVERT auf Ihre ProDOS- 
Arbeitsdiskette konvertiert werden. 


A.U.G.E.-Mailboxen 


Die Apple User Group Europe e.V. (A.U.G.E.) 
hat uns die Adressen der A.U.G.E.-Mailboxen 
zur Verfügung gestellt. Peeker-Leser können 
sich außer in der A.U.G.E.-Box überall als Gäste 
einloggen. 

Datex-P-Mailbox: 

A.U.G.E. Box: NUA 45 4298 41010, AUGE 
INFSYS: NUA 44 6151 90343 

DAILY SERVE: NUA 44 7261 40323 

Lokale Mailboxen: 

Berlin: - 030/8034656 

Darmstadt: INFSYS-DA 06151/784158 
Hamburg: Rappelkiste 040/373865 

Köln: INFSYS-K 02203/34456 

MA/HD: RN! 06203/45496 

Münster: Micky 0251/7619054 

Münster: Maus 0251/522790 

Wiesbaden/Ffm: CIA-CS 069/494201 
Ruhrgebiet: A.U.S. 0203/705827 

Saarbrücken: PFM 0711/3700978 
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TRACE.KORREKTUR 


198 
11 
128 
130 
149 
158 
16% 
178 
188 
199 
288 
218 
228 
238 
24% 
259 


269 
270 
280 
29 


399 
31® 


329 
330 
340 
359 
36ß 


370 


S8B 
39 


app 
419 
a2d 
439 
449 
A450 


A460 : 


470 


480 :: 
498 : 


5A 


5Io : 


REM ORDNUNG = ORDNUNG (nicht KATASTROPHE) 
REM Beseitigung eines fatalen Fehlers im 
REM BASIC,SYSTEM (Versionen 1,8 und 1,1) 


REM AS, September '86 
HIMEM: 38480 


TEXT : HOME : PRINT "TRACE-FEHLERKORREKTUR'' 

VTAB 4: PRINT "Diskette mit BASIC.SYSTEM": PRINT 
PRINT "einlegen und:": PRINT 

INPUT "<RETURN>=Weiter, <CONTROL-C>=Ende ";X$ 
PRINT 

PRINT CHR$ (4); '"UNLOCK BASIC.SYSTEM" 

PRINT CHR$ (4);"BLOAD BASIC.SYSTEM, TSYS, A$20gg" 
BYTES = PEEK (48857) + 256 « PEEK (48858): REM 
"ENDFILE" 


REM KR EERE EEE 


REM Basisadressen für die Veränderungen, die 
gegebenen 

REM Werte gelten für die Version L,1l, 

REM Die Variable ADDR enthält immer einen relativen 
Wert! 


ER 18489: REM &* VERSION 1.1 ** {VL.ßd: 18527) 
TAB 16921: REM ** VERSION 1,1 #* (V1,9: 17811) 


IE PEEK (BP) < > 216 THEN PRINT "Falsche 
Version!": STOP 

IF PEEK (BP + 3) = 281 THEN PRINT "bereits 
korripgiert,": STOP 

2=®: FORX=]1 T0 48: READ Y:Z = Z+ Y: NET 
RESTORE : IF Z < > 1869 THEN PRINT "DATA-Fehler!": 
STOP 


REM Durch Verschiebung werden vor dem veränderlichen 
REM Sprung vier Byte Freiraum für den Test auf 
REM "größer $BF" geschaffen. 


FOR Y = 1 TO 2: READ AD, ED, OFFSET 
FOR X = ED TO AD STEP - 1 
::2= PEEK (BP + X} 

PÖKE BP + X + OPFSET, 2 
NEXT 
NEXT 


658 
617% 


BE 


689 
69H 
799 
719 
729 
739 


74B : 
T50 =: 
768 : 


779 
780 
798 
8H9 
819 
820 
859 


8aB : 


859 


BB : 
SU 
880 : 


890 


DATA 37,61,2,04,34,4 


REM Einbau des Tests sowie der 
Speicherplatz-Optimierung 
REM der Behandlung von LIST/CALL und TRACE/NOTRACE 


FOR Y = 1 TO 3: READ ADDR, ANZAHL 

: PORX = B TO ANZAHL - 1 

:: READ CODE: POKE BP + ADDR + X,CODE 
: NEXT 

NEXT 


DATA 83,5: REM "CMP #$CQ/TYA/BCS. ,* 
DATA 291,192,168, 176,246 

DATA AB,1,82: REM LIST/CALL 

DATA 64,2,288,#4: REM TRACE/NOTRACE 


REM Korrektur der relativen und absoluten Referenzen 
REM innerhalb der verschobenen Programmteile 


FOR X = 1 TO 4: READ ADDR,KWERT 

:4 = PEEK (BP + ADDR) + KWERT 

IF Z < 256 THEN 760 

:& = Z - 256: REM danach Übertrag 

FOKE BP + ADDR + 1, PEEK {BP +ADDR + 1] + | 
POKE BP + ADDR,Z 

NEXT 


DATA 12,-6,14,+4,36,+4,46,+6 


REM Korrektur der Werte in der "Token-Tabelle" für 
REM die Befehle CALL, LET, TRACE und NOTRACE 
REM sowie NORMAL, FLASH, INVERSE und RESUME 


FOR Y = 1 TO 2: READ ANZAHL, KWERT 

FOR X = 1 TO ANZAHL: READ ADDR 

POKE TAB + ADDR, PEEK (TAB + ADDR} + KWERT 
NEXT 
NEXT 


980 : 


918 
929 


DATA 4,-2,12,27,28,42: REM CALL/LET, 
DATA 4,-4,29,38,31,38: REM NORMAL/FLASH,. 


930 : 


949 


REM KR 


9358 : 


96B 
979 


989 
999 


PRINT "OK, wird zurückgeschrieben..." 
PRINT CHR$ (4) ;"BSAVE 
BASIC,SYSTEM, TSYS, A$2809 ,L"; BYTES 

PRINT CHR$ (4);"LOCK BASIC, SYSTEM" 

PRINT : PRINT "'"Booting' zu": PRINT CHR$ 
(4); "-BASIC.SYSTEM"" 


GFABASIC 2.0 


DM 169,— 
DM 169,— 


Interpreter (Diskette und Handbuch mit Ordner) 
Compiler (Diskette und Anleitung) 


Nach Abschluß des GFABASIC-Kurses erhalten Sie zusätzlich eine Diskette mit 
allen Übungsprogrammen und weiteren nützlichen Programmen kostenlos nach- 
geliefert, wenn Sie den Interpreter und/oder Compiler über uns bestellen. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 
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Programmverwaltung 





Ein Übungsprogramm für Applesoft-Anfänger 


von Nils Arndt 


Dieses aus zwei Modulen bestehende 
Programm soll Ihnen helfen, eine über- 
sichtliche Liste über Ihre Programme an- 
zufertigen. Sie ersparen sich so langes 
Suchen nach einer bestimmten Datei, be- 
sonders wenn Sie viele Disketten besit- 
zen. Ein kurzer Blick auf die mit dem Druk- 
ker erstellte und möglicherweise mit dem 
Modul „Alphasort“ alphabetisch sortierte 
Liste genügt in Zukunft, um die Diskette 
herauszufinden, auf der sich das Pro- 
gramm befindet. Aber auch über die Pro- 
grammart, die Programmlänge und die Be- 
dienungsart gibt sie Auskunft. Die Daten 
von bis zu 324 Programmen werden als 
Textfile auf Diskette geschrieben. 

Das Verwaltungsprogramm soll professio- 
nellen Dateiprogrammen keine Konkur- 
renz machen, sondern ist als nutzbringen- 
des Übungsprogramm für Applesoft-An- 
fänger gedacht, die eigene Erweiterungen, 
z.B. BASIC.MASKE aus Peeker, Heft 12/ 
86, einbauen können. 


1. PROGRAMMVERWALT 


1.1. Dateieingabe 


Nach dem Start der Programmverwaltung 
mit RUN PROGRAMMVERWALT (von 
DOS 3.3 oder ProDOS) wählen Sie für die 
Eingabe die entsprechende Option im Me- 
‘nü. Geben Sie dann nacheinander den 
Programmnamen, die Programmart, die 
Programmlänge, die Nummer der Disket- 
te, auf der das Programm gespeichert ist, 
und schließlich die Bedienungsart ein. 

Diese fünf Angaben halte ich persönlich 
für geeignet, um schnell über ein Pro- 
gramm zu informieren. Sie können jedoch 
von Ihnen geändert werden. Dazu müssen 
Sie in den Zeilen 455 (Listenüberschrift), 
565-595 (Eingabe) und 640-660 (Ausgabe 
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auf dem Bildschirm) Veränderungen vor- 
nehmen. Gegebenenfalls ist es auch er- 
forderlich, die Zwischenräume zwischen 
den einzelnen Angaben in den Zeilen 270- 
305 neu berechnen zu lassen. 


Die Punkte hinter dem Cursor geben das 
Maximum der Zeichen an, die Sie bei der 
Eingabe verwenden können. Sie sollten es 
nicht überschreiten, da dies sonst Ursache 
für eine unübersichtliche Liste wäre. So 
darf der Programmname lediglich 23 Zei- 
chen umfassen. Da er oft zu abstrakt ist, 
um über das Programm Auskunft zu ge- 
ben, können Sie mit einem Schlagwort 
(höchstens 17 Zeichen) die Programmart 
definieren (z.B. Kopierprogramm, Grafik- 
Utility, Adventure, Compiler). 


Die Bedienungsart, die bis zu drei Zeichen 
lang sein darf, ist abgekürzt anzugeben. 
Sie sparen so Zeit und Speicherplatz. „J“ 
könnte zum Beispiel für Joystick, „K” für 
Keyboard, „P“ für Paddle und „M“ für 
Mouse stehen. Falls mehrere Bedie- 
nungsarten für ein Programm zutreffen, ist 
es zweckmäßig, sie nebeneinander {ohne 
Kommata), etwa in der Form „JPK”, dar- 
zustellen. 


Wenn Sie noch während der Eingabe eine 
Korrektur durchführen möchten, schrei- 
ben Sie bitte anstelle des Programmna- 
mens &V. Sie werden daraufhin feststel- 
len, daß die Programmnummer um eins 
abgenommen hat. Geben Sie nun die 
Daten nochmals ein. 


Die Eingabe wird entweder nach 324 Pro- 
grammen automatisch beendet oder da- 
durch, daß Sie anstelle des Programmna- 
mens &E schreiben. Nachdem Sie den 
Dateinamen bestimmt haben, werden die 
Daten auf Diskette gespeichert. 

Falls Sie eine bereits angelegte Datei spä- 
ter fortsetzen möchten, wählen Sie bitte im 
Menü die entsprechende Option. 


1.2. Korrektur 


Die Korrektur von bereits auf die Diskette 
geschriebenen Daten erfolgt durch die 
Menü-Option 3. Geben Sie die laufende 
Nummer des Datensatzes ein, die Sie z.B. 
der mit dem Drucker erstellten Liste ent- 
nehmen können. Sie haben nun Gelegen- 
heit, Daten zu korrigieren oder zu löschen. 


1.3. Bildschirm- und Druckerausgabe 


Die Ausgabe der Daten auf dem Bild- 
schirm erfolgt in derselben Form wie die 
Eingabe, nämlich untereinander, wobei 
immer die Daten von zwei Programmen 
gleichzeitig erscheinen. 

Die Ausgabe der Daten mit dem Drucker 
geschieht der Übersichtlichkeit halber ne- 
beneinander, Eine Zeile besteht aus 80 
Zeichen. Der Programmname und die Pro- 
grammart werden linksbündig, die laufen- 
de Programmnummer, die Programmlän- 
ge, die Diskettenummer und die Bedie- 
nungsart dagegen rechtsbünaig ausgege- 
ben. Eine in zwei Päckchen aufgeteilte 
DIN-A4-Seite besteht aus Daten von 54 
Programmen. Insgesamt werden auf eine 
Seite 59 Zeilen gedruckt (2 * 27 Zeilen 
Programmdaten, eine Leerzeile und 2 x 2 
Zeilen für die Überschrift der Päckchen). 
Wenn Sie mehr bzw. weniger Zeilen auf 
eine Seite gedruckt haben möchten, müs- 
sen Sie die Programmzeilen 260 und 265 
ändern. 


2. ALPHASORT 


Nach dem Start des Sortlierprogramms mit 
RUN ALPHASORT wird die gewünschte 
Datei von Diskette eingelesen, wenn sie 
mit dem Programm „Programmverwal- 
tung“ erstellt worden ist. Anschließend 
ordnet es die Programmnamen alphabe- 
tisch, was bei 324 Namen etwa zweiein- 
halb Minuten in Anspruch nimmt. Danach 
werden die Daten unter dem gleichen 
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Dateinamen wieder auf Diskette geschrie- 
ben. Das Sortieren geschieht folgender- 
maßen: „Alphasort“ prüft nacheinander 
die Anfangsbuchstaben der Programmna- 
men und zwar zuerst auf den ersten, dann 
auf den zweiten, dritten ... Buchstaben des 
Alphabets. Den Programmnamen, die mit 
dem ersten, zweiten, dritten ... Buchsta- 
ben beginnen, und den zugehörigen an- 
deren Programmdaten werden neue Feld- 
variablen zugewiesen. Je kleiner die Stelle 


ALPHASORT 


128 REM x** ALPHASORT xxx 


178 DIM B$(324) ,F$(324),6$(324) ,H$(324) ,A$(324), 
1$ (324) ,‚K$(324) ,L$(324) ,E$(324) ,J6(324) 


188 HOME :J = 1:2 =1 
199 INPUT "DATEINAME: 
288 D$ = CHR$ (4) 
218 REM *#* LESEN DER DATEI xxx 
228 PRINT DS"OPEN '";NS$ 

238 PRINT D$"READ ";N$ 

248 INPUT K: FOR A = 1 TO K: INPUT 


ENG. PRINT 


AS(A),KS(A),LE(A),ES(A),JS(A): NEXT 


259 PRINT D$"CLOSE ";N$ 

268 HOME : 
GEORDNET (BITTE WARTEN! 324 NAMEN 
MINUTEN). " 

278 REM xxx SORTIEREN x*% 

2868 FORA = 1 TOK 

298 IF LEFT$ (A$(A),1) = 


= J$8(A|: 2 = Zz+1 
söß8 IFZ=K + 1 THEN 338 
31® NEXT 
226 J=J+1: IFJ< 27 THEN 289 
330 HOME : 
GESCHRIEBEN!" 
34f REM x*** SCHREIBEN DER DATEI x#+* 
358 PRINT D$"OPEN '";N$ 
368 PRINT D$'"WRITE ":N$ 


376 PRINT K: FOR I = 1 TO K: PRINT I$(I): PRINT B$(T): 
PRINT F${I): PRINT G$(I}: PRINT H$(T): 


386 PRINT D$"CLOSE ";N$ 


PROGRAMMVERWALT 


11® REM *»** PROGRAMMVERWALTUNG x*x** 
135 2 = 1:K — 524 


14 DIM N$(324) ,AR$(324) ,L$(324) ,D$(324) ,J$(324) 


145 REM *** MENUE x**%* 

1568 TEXT : HOME : GOSUB 495 

155 PRINT "x":: INVERSE : PRINT " 
PROGRAMMVERWALTUNG More: 

16® PRINT "x";: INVERSE : 
NIGESCHRIEBEN VON NILS ARNDT"; : 
1ıy: NORMAL : PRINT T'x" 
GOSUB Aß5: POKE 34,4 
YTAB 7: 
VTAB 9: 
VPAB2iL: 
VTAB 13: 
VTAB 15: 
VTAB 17: 
VTAB 23: 
GET A$ 


PRINT ''<3> KORREKTUR" 


PRINT "<6> ENDE" 


ON VAL (A$) GOTO 220,325,345,249,619,395 


GOTO 2B0 

REM *»** PROGRAMMEINGABE #x**+ 

X = 1:K > 324 

HOME : GOSUB Ai: GOSUB 429: HOME : 


HOME : 
428: GOTO 15% 


REM xxx PROGRAMMAUSGABE (DRUCKER) *** 
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PRINT "DIE PROGRAMMNAMEN WERDEN ALPHABETISCH 


CHR$ (64 + J) 
A$(A):BS(Z) = KS(A):FSLZ) = LECA):CHL 


PRINT "DIE DATEI WIRD AUF DISKETTE 


NORMAL : 
PRINT " u: 
INVERSE : 


PRINT '"<1> PROGRAMMEINGABE" 
PRINT "<2> PROGRAMMEINGABE FORTSETZEN" 


PRINT ''<4> AUSGABE MIT DEM DRUCKER" 
PRINT "<5> AUSGABE AUF DEM BILDSCHIRM" 


HTAB 1: PRINT "WAEHLEN SIE BITTE (1-6): ";: 


GOSUB 435: FOR I 
= X TO K: GOSUB 569: GOSUB 435: NEXT I 
PRINT :K = I - 1: GOSUB 449: GOSUB 445: GOSUB 








des Anfangsbuchstabens des Dateina- 
mens im Alphabet ist, desto eher erhalten 
die betreffenden Programmdaten neue 
Variablen, so daß die Programmnamen 
letztendlich alphabetisch geordnet sind. 


Kurzhinweise 


1. Zweck: 
Programmverwaltung 


248 HOME : 
245 PRINT : 
258 HOME : 


PRINT 
455 


(A)"PR#1": 


455 


=2 1/2 
FRINT T; 


THEN I$(2) = 


2) = E$(A):H$(2Z) N= 10 - 


N= 13 - 
NEXT I 
PRINT : 
159 


HOME : 
PRINT : 


HOME : 
GOTO 355 
PRINT 
FRINT >; 


NEÄT 


PRINT 


HOME : 
PRINT : 


PRINT "x" 
FLASH : PRINT 
PRINT " 


HOME : 


TEXT : 


RETURN 


PRINT : 


IF A$ = 
RETURN 


RETURN 
HOME : 
DATEI 

FRINT-: 


(JAN)? ";: 


PRINT : 
PRINT 
PRINT 
STARTKLAR, UND DRUECKEN SIE EINE TASTE A 
: HOMB : 


AS en 


HTAB 1:W = LEN ( STR$ (I)): 


FOR U=1TO (3 - W): PRINT " ";: 


PRINT CHR$ (A)"PR#ß'": HOME : 


SYPRTINIE 


PRINT "40 


ERINT: 


PRINT 
GESCHRIEBEN!": 
PRINT "IST DIE DATEI SCHON GELADEN 
GET A$: PRINT : 


4 applesoft 9.4 


2, Konfiguration: 

II+/e/c in 40 Z/Z; DOS 3.3, Diversi-DOS 
oder ProDOS 

3. Test: 

RUN PROGRAMMVERWALT 

4. Sammeldisk: 
PROGRAMMVERWALT 
Modul) 

ALPHASORT (Sortier-Modul) 
PROGRAMMDATEI (5 Übungseinträge) 


(Ein/Ausgabe- 


GOSUB 45%: IF A$ = "J" THEN 259 
GOSUB 44A: GOSUB 465: GOSUB 515 
PRINT "MACHEN SIE BITTE DEN DRUCKER 
GET A$: 


PRINT CHR$ (4)"PR#1": PRINT : GOSUB 


FOR I = 1 TOK 
A= (I -55) / 54: IFI>1ANDA= 
PRINT CHR$ {A)"PR#8": HTAB 1: INVERSE : 
SIE BITTE NEUES PAPIER EIN, UND 
GET A$: PRINT : 
PRINT : 
A= (I -28) /54 IFA= 


INT (A) THEN 
PRINT "LEGEN 
DRUECKEN SIE EINE 
NORMAL : PRINT CHR$ 
GOSUB 455 

INT (A) THEN PRINT : GOSUB 
IF W= 3 THEN 286 

NEXT U 


HTAB 6: PRINT N$({T}; 
HTAB 30: PRINT AR$(I): 
W= LEN (AR$(I)):N = 
415: PRINT L$(1); 

LEN (D$(I)}): 
LEN (JS$S(T)]: 


ee ne a GOSUB 


LEN (L$(T)}): 


GOSUB 415: PRINT D$(I); 
GOSUB 415: PRINT J$(I) 


GOSUB A429: GOTO 


REM #** PROGRAMMEINGABE FORTSETZEN xxx 
PRINT : 
PRINT : 
X=K+H 1:K = 324: GOTO 225 
REM x** KORREKTUR #x*#* 
PRINT : 


GOSUB 458: IF A$ = "J" THEN 335 
GOSUB 449: GOSUB 465: GOSUB 515 


GOSUB 458: IF A$ = "J" THEN PRINT : 


GOSUB 449: GOSUB 465: GOSUB 515 


PRINT "WOLLEN SIE DATEN LOESCHEN ODER 
VERBESSERN {L/V)®? '';: 
PEINT : 
PROGRAMM? ";1I 
IF A$ = "L" THEN PRINT : 
18 SEK. )!": FOR J = I TO K:N$(J) = N$(J + L):AR$(J) = 
ARS(J + 1):L$(J) = L$(J + 1):D$(J) = D6(J + 1):J$ (U) 
= J${J + 1): NEXT :K =K - 1: PRINT: 
PROGRAMMDATEN WURDEN GELOESCHT I": 
GOSUB 435: GOSUB 569: GOSUB 435 

PRINT "MOECHTEN SIE NOCH EINE KORREKTUR 
DURCHFUEHREN (J/N)? ";: 
IF A$ = "J'" THEN HOME : 
PRINT : 
428: GOTO 159 
REM #x* PROGRAMMENDE x*x*% 
HOME : 
REM x%*%* ZEHN KLEINE UNTERFROGRAMME &*** 
PRINT "ee ee I 


GET A$ 
INPUT "WELCHE NUMMER HAT DAS 


PRINT "BITTE WARTEN (MAX. 


PRINT "DIE 
GOTO 375 


GET 4$ 
GOTO 355 


GOSUB 449: GOSUB 445: HOME : GOSUB 


END 


VTAB 7: PRINT "BENUTZEN SIE <&E> ZUM BEENDEN DER 
EINGABE UND <&V> ZUM VERBESSERN.": 
FOR U = 170 N: PRINT WW 
PRINT : 
(SETRL-C> => MENUET „0: 
CHR$ (3) THEN 159 


RETURN 
NEXT U: RETURN 
PRINT ''DRUECKEN SIE BITTE EINE TASTE 
GET A$: PRINT 


INPUT "GEBEN SIE BITTE DEN NAMEN DER 
";NA$: PRINT : RETURN 
"DIE DATEI WIRD AUF DISKETTE 

GOSUB 475: RETURN 
WORDEN 
RETURN 
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Apple II+ Nachbau mit Ac- 
celerator, Z230B 6Mhz, Ram 
Floppy 256K, RS232 u. V24, 80Z. 
Karte, L. Karte, 35 + 160 Track 
Laufwerk, Controller, IBM Look, für 
DM 2900,-—. Tel. 02303/13144 
nach 15 Uhr. 


16/2 Bit für Apple Il 

68000 mit 128K von IBS (AP20), 
für DM 600,-. Tel 02303/13144 
nach 15 Uhr 


Apple Ile enhanced, Monitor 
II, Disk II + Contr. (Original)! 
80Z/Z + 64K, 128K-Karte, Z80A, 
VB! Tel. (HH) 040/22 3848 

zw. 15 und 18 Uhr 


Apple Ilc, mit Monitor, 2. 
Laufwerk u. CP/M Card, sowie 
umfangr. Literatur u.v.a. zu verkau- 
fen. Preis VB. Tel. 098/4 300985 


ITOH 8510 FF Matrixdrucker 
Schnittst. par./ser. werksgepr. mit 
autom. EB-Einzug-Aufsatz NP 
2300,- für DM 1100,-. 

K. Freimann, Andelsbachstr. 2a, 
7887 Laufenburg, 07763/1658 
8-12 h. 


Apple Ile + Disk II + Mon. + 
SSC + IMAGEWRITER + Erw. 
80Z + 512K-RAMDISK für Pascal 
+ Pascal 1.2 DM 3600,-. Alexan- 
der Seggerman, Tel. 061 72/ 
30 34 74 


Apple Ilc mit CP/M-2Floppy- 
Monit. Scribe Drucker-Maus-Joy- 
stick 3 Diskettenboxen usw. VB 
DM 4000,-. Tel. 06898/67680 
ab 20.00 Uhr 


Orig. Apple Il europlus, 2 
Laufwerke, Monitor, 80 Zei- 
chen, Z80-Karte, sep. Tastatur, se- 
rielle u. parallele Schnittstelle, viel 
Software, Bücher Literatur VB DM 
1500,-. Tel. 040/7399905 


Apple lic + Monitor + Image- 
writer + Maus + Appleworks + 
Merlin-Pro + Elite + Flight-Simula- 
tor + Kyan-Pascal + Bücher im 
Wert von DM 800,— + alle Peeker 
nur kompl. VB DM 3000, — 

Tel. 09117/428712 


MAC f. Studenten (sowie 
einige Apple-Prod.) zu Sonder- 
preisen !! Datent. Schoeben U,, 
Bahnhofstr. 12 '/2, 8900 Augsburg, 
Tel. 0821 /152377 


26 





IBS-Space 84 IBM-Geh. ACS- 
Tastatur 2 Taxan Disk m. Contr. 
Z80B, STAR-Gemini 10xm. Interf, 
VB 1950,— Siemens Disk + Contr. 
250,- MS-Fortran 80 300,- 

Tel.: 02932/24120 


Apple Ill 256K Monitor ext. 
LW Lit. Software, Profile, Drucker 
LQ 2000, VB DM 6500,- 
Tel. 085 07/665 abends 


II+ komp., 64K, 280, 802, 2 
Teac-LW 55F (160 + 35Spur), 
ect. Tastatur, Monitor, BS.: DOS + 
CP/M + Lit + ca. 100 Disks (SW 
umsonst) NP ca. DM 4800,— für 
DM 2800 —. Tel. 0631/66914 


Suche Hardware 


Suche Image-Writer/EPSON 
FX80 i. Apple lle-Interface 
Tel. 024 72/1680 





Biete Software | 


Apple Ile 128K, lic Software 
DMP-Charger 2.2 Neuzeichen — 
DM 100,-, Reportworks AWD- 
Auswerter -— DM 300,-, SUPER- 
CALC 3A TABKALK+GRAPH — 
DM 500,-. Einkaufskont. 

Bethel, Tel. 0521/1443815 


Kyan-Pascal: Include-File- 
Tool mit über 20 Files 20,- 
(Schein) Info/Liste für DM 0,60 in 
Bfm. R. Winzen, Daimlerstr. 70, 
A040 Neuss |] 


Ärgern Sie sich nicht auch, 
daß Sie mit AppleWorks keine 
Serienbriefe schreiben können? 
Dann brauchen Sie AppleCircular! 
Es verknüpft Text und Daten und 
schreibt so persönliche Einladun- 
gen. Werbebriefe usw. Programm 
und kostenl. Info bei: Johannes 
Pellenz, Kiefernweg 4, 6550 Bad 
Kreuznach. Tel. 0671/63173 


* DISKETTEN 
*51/", 48tpi, DM 0,99, 2D 
* 317", 135tpi, DM 3,19 IDD 
*3" Schneider DM 5,85 
x auch andere, bes. Garantie 

x Allg. Austro-AG, Ringstr. 10 
* D-8057 Eching, 

x Tel. 081 33/6116 


“xt KkFKkKrFH 


Apple Il: DFÜ-Kermit, Pascal 
satt, Public Domain in DOS u. 
CP/M. Je Volume DM 15,—. Bahn- 
hofssimulation, Sprache, Schul- 
programme. 

Gratisinfo: Fa. Waltraud Muhle 
Waldwinkel 3, 2105 Seevetal 3. 


Gewerbliche Anzeigen 


sind mit E gekenn- 
zeichnet. 


Suche Software 


ACHTUNG! Wer hat das Gra- 
fik-_ programm Gutenberg 85 
(= FONTRIX) für den Apple Ile in 
verbesserter Form (speziell ange- 
paßt für den Ile und eine Harddisk, 
außerdem als ProDOS-Version an- 
stelle DOS 3.3 und Double-Hires 
anstatt Hires)? Stefan Richter, Kal- 
te Marter 3, 8650 Kulmbach 


ATARI ST Public Domain 
Softwaretausch. Liste an: 
Matthias Meyer, Postfach 191, CH- 
9001 St. Gallen. 


Verschiedenes 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 


Apple Il Motherboard-Re- 
peratur DM 100,- 
Tel. Mo-Do 05 11 /40 - 6604 Rüter 


Original Peeker-Hefte 1/84- 
12/86 komplett DM 75,— 
Tel. 06121/54530 





»Peeker« ist eine aktuelle und zuverlässige Informations- 


quelle. 


Tip, den Sie der Zeitschriftentnehmen, kann 
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Für Ihre Unterlagen 
Abonnement bestellt 





449994 DEEKER IA 


Ja, ich möchte Peeker abonnieren. 

Liefern Sie mir Peeker ab Ausgabe ........ 2.222... zum Jahresbezugspreis 
von z.Zt. DM 75,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, 
Verpackung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis 
für das Ausland beträgt z.Zt. DM 75,- plus DM 20,- Versandspesen. 


x 


Datum 1. Unterschrift 





am: 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag GmbH, Postfach 
102869, 6900 Heidelberg innerhalb 
von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige 
Absendung des Widerrufs (Datum 
des Poststempels). 





Bitte lesen! 
Vertrauensgarantie: Ich habe davon Kenntnis genommen, daß ich die Bestellung schriftlich durch Mitteilung an den 


Dr, Alfred Hüthig Verlag GmbH, Postfach 102869, 6900 Heidelberg innerhalb von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige Absendung des Widerrufs (Datum des Poststempels). 


Peeker 
Leserservice 


Postfach 102869 
6900 Heidelberg 


x 


Datum 2, Unterschrift 


Verlagshinweis: Das Abonnement verlängert sich zu den jeweils gültigen Bedingungen um ein Jahr, wenn es nicht 
2 Monate vor Jahresende schriftlich gekündigt wird, 


> Abo-Karte 





Wir können nur Bestellungen ..mit zwei Unterschriften bearbeiten. 


2999949 BECKER 94 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


[1 Bühler, Applesoft-BASIC, U] Kehrel, Apple Assembler lernen, Bd. 2, 
3-7785-1094-0, DM 38,— 3-7785-1170-X, DM 38,- 
DI Eggerich, dBase Il, Bd. 1, U] Schäpers, ProDOS Analyse, 
3-7785-1147-5, DM 39,80 3-7785-1134-3, DM 68,- 
Eggerich, dBase Il, Bd. 2, U] Schäpers, Bewegte Apple-Graphik, 
3-7785-0987-X, DM 39,80 3-7785-1150-5, DM 58,- 
L] Eggerich, dBase Il, Bd. 3, DL] Stiehl, Apple DOS 3.3, 
3-7785-0988-8, DM 39,80 3-7785-1297-8, DM 28,— 
LI Gabriel, Applewriter, DL] Stiehl, Apple ProDOS, Bd. 1, 
U 
Ü 
Ü 


Für Ihre Unterlagen 
Folgende Bücher bestellt: 





Ei 


ku 


3-7785-1234-X, DM 35,— 3-7785-1098-3, DM 28,— 


a I DU] Hagenmüller, Microsoft-BASIC, Bd. 1, Stiehl, Apple ProDOS, Bd. 2, 





bei: 3-7785-1038-X, DM 38,- 3-7785-1036-3, DM 30,- 
DJ Juhnke/Redlin, Apple Pascal, Bd. 1, Stiehl, Apple Assembler, 
3-7785-1246-3, DM 42,— 3-7785-1047-9, DM 34,— 
Peeker [1 Kehrel, Apple Assembler lernen, Bd. 1, Wassermann, Apple Ilc Handbuch, 
3-7785-1151-3, DM 38,— 3-7785-1157-2, DM 35,— 
Versandbuchhandlung 
Postfach 102869 
6900 Heidelberg 1 Datum | Unterschrift 


QD Buch-Karte 





Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 





499499 PEEKER 94 


Bitte senden Sie mir gegen Rechnung folgende Disketten: 


T LI] Peeker-Sammeldiskette, einzeln DI ProDOS-Editor 1.0, Programm, DM 98,- 
oO Disk# ‚ Disk# DI MMU 2.0, Programm, DM 98,- 
Disk#________,Disk# DI INPUT 2.0, Programm, DM 98,— 
Se Preis je Disk DM 28,- (einzeln) L] DB-Meister, Programm, DM 290, 
B L] Peeker-Sammeldiskette, [I Superquick, Programm, DM 48,— 
© im Fortsetzungsbezug [I Turtle Graphics, Programm, DM 98,- 
Som ab Disk# _ [1 Disk 40, Programm, DM 48,— 
O (Mindestbezug 6 Disketten) LI Kyan-Pascal 2.0, Programm, DM 170,- 
Preis je Disk DM 20,- DI Fast-Writer, DOS 3.3, DM 128, — 
am: []) Apple DOS 3.3, Begleitdisk., DM 28- DI Fast-Writer, ProDOS, DM 128,— 
Bei: [1 ProDOS, Band 1, Begleitdisk., DM 28,-— DI Double-Hires-Tools für Applesoft, DM 28,- 
Sm [| ProDOS, Band 2, Begleitdisk., DM 28,- LI Double-Hires-Tools für Kyan, DM 28,- 
Peeker OÖ 25 Apple Assembler, Begleitdisk., DM 28,- [] Kyan-Toolkit Nr. ‚DM 
Softwareabteilung 42) 
Postfach 102869 
6900 Heidelberg 1 ne Datum | Unterschrift 
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Ich wünsche jährliche Berechnung durch: 

[U] Verlagsrechnung DJ) Abbuchung von 
meinem Bank- bzw. 
Postscheckkonto 





Bank/PschA 


Bankleitzahl 


Kio.-Nr. 


Ua Abo-Karte 








Karte bitte vollständig ausfüllen 


Vorname, Name 


E 
£ 





= 
3 








Straße 


PLZ/Ort 





Telefon mit Vorwahl 


= Buch 





Karte bitte vollständig ausfüllen 


Vorname, Name 


Ti 
= 
= 
= 
=] 








Oo 


Telefon mit Vorwahl 


2 
3 
2 
5 
a 





Bitte 


freimachen 


POSTKARTE 


Peeker 
Leserservice 


Dr. Alfred Hüthig Verlag GmbH 
Postfach 102869 
6900 Heidelberg 


Bitte 


freimachen 


POSTKARTE 


Peeker 
Buchabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


Bitte 


ireimachen 


POSTKARTE 


Peeker 
Softwareabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 











INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 
von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 


„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 


"Für jedes Feld der Bildschirmmaske lassen 


sich u. a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) - Ctrlflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevorausselzung: Apple Ile oder IIc; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Appie Ile 64K-Karte 

DOS 3.3 (und ProDO$) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple lie) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple Il Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder Ilc 


DISK 40 


Disketten-Organisationsprogramm 

für DOS-3.3 - 35-40 Spuren 

von Hermann Seibold und Dipl.-Ing. 
Udo Marin, 1986, Programmdiskette 
mit Anleitung, DM 48,- 


Durch eine einfach zu bedienende Menü- 
führung können DOS-3.3-Disketten um- 
fangreich bearbeitet oder kopiert werden. 
— Tabellarische Ausgabe der Disketten- 
belegung 

— Ordnen des Catalogs 

— „Undelete"n von versehentlich ge- 
löschten Dateien 

— Vergleichen von Disketten, Dateien 
oder DOS-Spuren 

— Kopieren von Disketten, Dateien oder 
DOS-Spuren 

— Formatieren von Daten-Disketten 

— Erweitern auf 40 Spuren bei bestehen- 
den 35-Spur-Disketten 

— Ändern des Boot-Programms 

— File-Editor zum Editieren von Disketten- 
Dateien 

— Komfortabler Sektor-Editor für Hex- 
und ASCII-Darstellung 

-VTOC-Editor, z.B. zur Freigabe der 
DOS-Spuren 


Hüthig Software Service, 
Postfach 102869, D-6900 Heidelberg 


9.4 Applesoft 9.4 


TurtleGraphics-Library-Paket 


455 PRINT "'NR.: PROGRAMMNAME: PROGRAMMART: 
LAENGE: DISK NR.: BEDIENUNGSART:" von Dieter Geiß 
460 PRINT 
: SERIE Turtle-Utilities für Fenstertechnik und Apple-Maus in einfa- 
465 PRINT : PRINT "DIE DATEI WIRD VON DISKETTE GELESEN! ": cher und doppelter Hires-Grafik für Pascal 1.2 auf Apple 
au Ile/c mit Maus oder Joystick. 2 Disketten mit umfangrei- 
A7® REM %*%*x* DIE DATEI WIRD AUF DISK GESCHRIEBEN xxx | 
475 PRINT CHR$ (A)"OPEN "':NA$ chem Manual, DM 98,-. Unter Pascal 1.1 mit 64K nur ein- 
ABB PRINT CHR$ (A4)"WRITE ";NA$ geschränkt lauffähig 
485 PRINT K 
496 FOR I=1T0K . Im einzelnen bietet das Paket folgende Möglichkeiten: 
495 PRINT N$(I): PRINT AR$(I): PRINT L$(I}: PRINT D$(T): ee nn 
PRINT J$(1) — volle Kompatibilität mit der alten „TurtleGraphics 
an NEXT I : alle zeitkritischen Funktionen in reinem Assembler programmiert 
505 PRINT CHRS (4)"CLOSE ";NA$: RETURN BR 
510 REM xxx DATEI WIRD VON DISK GELESEN xx Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 
515 PRINT CHR$ (4)"OPEN ";NA$ für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Be- 
= a a (A)"READ ";NAS nutzung der doppelten Hires-Grafik mit 560 x 192 Punkten 
530 FORI=1TOK bzw. 16 neuen Farben möglich 
535 INPUT N$(I),AR$(I),L$(I),D$(I),J$(I) schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 
540 NEXT I u a 
a Benutzung MEnIeIe! Zeichensätze gleichzeitig . 
556 RETURN | Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 
= ES ne drei verschiedene Schriftarten: Fett-, Breit- und Proportional- 
565 PRINT "PROGRAMMNAME : essen nssets: HTAB schuf beliebig mischbar (acht Möglichkeiten) 
16: INPUT "";N$(I) spezielle schnelle Ausgabe von Text 
570 IF N$(I) = "&E" THEN 250 Cursor bei Eingabe frei programmierbar 
575 IF N$(I) = "&V" THEN I = I - 2: RETURN | 
588 PRINT "PROGRAMMART I aueeeeeeeeneneen ";: HTAB 16: Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL- 
INPUT "";AR$(I) Werten im Grafikmodus 
585 PRINT "LAENGE : 42.2.."5: HTAB 16: INPUT Nienizalewiabam Macniosh 
Ei) 


598 PRINT "DISK NR. RER "»: HTAB 16: INPUT Pull-down-Menüs 


en Laden und Speichern von Fenstern (Windows) 
595 PRINT "BEDIENUNGSART: ...";: HTAB 16: INPUT "":3$(I) E 
60B RETURN Öffnen von Fenstern 


605 REM x#* PROGRAMMAUSGABE (BILDSCHIRM) x*x* Aktivieren und Deaktivieren von Fenstern 


61B HOME : PRINT : GOSUB 459: IF A$ = "I" THEN 62 a 
615 PRINT : PRINT : GOSUB 44ß: GOSUB 465: COSUB 515 Verschieben und Vergrößern/Verkleinern von Fenstern 


62® HOME : GOSUB 42@: HOME — Scrolling von Fensterinhalten in allen vier Richtungen 


625 FOR I=1TOK 
630 GOSUB 435 Umfangreiche Demos als Quelltexte. 





635 PRINT "PROGRAMM NR, : ";I Hüthig Software Service - Postfach 1028 69 - 6900 Heidelberg 
646 PRINT "PROGRAMMNAME : ":N$(I) 

645 PRINT "PROGRAMMART : ";AR$(I) —— 

65ß PRINT "LAENGE : ;:L$(I) 

655 PRINT "DISK NR.: : ":D$(I) 


668 PRINT "BEDIENUNGSART: ";J$(I) 

665 A=1I / 2: IFA= INT (A) THEN GOSUB 435: GOSUB 4A2ß: 
HOME 

678 NEXT 1 

675 IFA= INT (A) THEN 158 

680 GOSUB 435: GOSUB 42: GOTO 158% 





SUPERQUICK 


Ein superschnelles Disketten-Kopierprogramm 
von Arne Schäpers, 1985, Programmdiskette mit Anleitung, DM 48,— 


Mit SUPERQUICK ist es möglich, Disketten jeden Formats (DOS 3.3, ProDOS, UCSD-Pascal und CP/M) in 
einer unglaublich kurzen Zeit von nur 29 Sekunden (mit Formatierung) zu kopieren. Bei entsprechender 
Speichererweiterung kann der gesamte Disketteninhalt eingelesen werden, um mehrere Kopien anzufertigen. 
Die Zeit für eine Einzelkopie reduziert sich dann auf sage und schreibe 19 Sekunden. 

SUPERQUICK erkennt die 64K-Karte (in Slot 3) des Apple Ile und Ilc sowie eine 16K-Language-Card in Slot O 
und bezieht diese selbständig als Datenpuffer ein. Darüber hinaus werden die IBS-Karten AP17 in den 
Ausbaustufen 64K bis 256K automatisch unterstützt und gegebenenfalls als weitere Puffer eingesetzt. 


Jetzt mit Spezialprogramm für 160-Spur-Erphi-Laufwerke! 


Hüthig Software Service : Postfach 10 28 69 - 6900 Heidelberg 1 
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1. Was ist ABU? 


ABU ist eine Erweiterung des Applesoft- 
BASIC um mehrere Grafikbefehle und um 
drei erweiterte BASIC-Befehle. Was diese 
Befehle bewirken und wie sie angewendet 
werden, wird im BASIC-Programm ABU. 
DEMO demonstriert. 


2. Die neuen Befehle 


In der folgenden Beschreibung der neuen 
Befehle bezeichnen X, X1, Y, Y1 usw. 
beliebige numerische Ausdrücke, anson- 
sten werden Parameter klein geschrieben. 
<pagenum> steht für die Nummer der 
Grafikseite (1 oder 2), <color> steht für 
die Farbnummer (0..8). Spitze und runde 
Klammern dürfen nicht als Befehl mit ein- 
gegeben werden. Parameter In runden 
Klammern sind optional, d.h. sie können 
bei der Eingabe des Befehls wegfallen. Bei 
jedem Befehl wird erst die korrekte Syn- 
tax, dann die Wirkung angegeben. 


& HELP: 

HELP löscht den Bildschirm und gibt alle 
Befehle von ABU (Ampersand BASIC Uti- 
lities) und deren Syntax aus. 


& PAGE <pagenum>: 

PAGE setzt die internen Zeiger auf die 
angegebene Grafikseite. Sämtliche Befeh- 
le von ABU und die Applesoft-Befehle 
(AS-Befehle) greifen auf diese Zeiger zu- 
rück. 


& HIRES: 


HIRES schaltet auf die ausgewählte Gra- 
fikseite um, ohne sie zu löschen. Dabei 


30 


ABU — Ampersand- 
BASIC-Utility 


von Jörg Bettray 


wird die Routine FULL (s.u.) aufgerufen, 
so daß in jedem Fall die volle Grafikseite 
angezeigt wird. Möchte man in den unte- 
ren 4 Zeilen Text anzeigen, muß man an- 
schließend die Routine MIX aufrufen. 


& FULL: 

FULL zeigt die volle Grafikseite an, d.h. die 
unteren 4 Textzeilen verschwinden vom 
Bildschirm. Dieser Befehl funktioniert al- 
lerdings nur bei eingeschalteter Grafik. 


& MIX: 

MIX zeigt Grafik und 4 Zeilen Text an. 
Auch dieser Befehl funktioniert nur bei 
eingeschalteter Grafik. Hat man allerdings 
die zweite Grafikseite gewählt, werden 
auch die 4 Zeilen Text der zweiten Text- 
seite angezeigt. Da diese bei dezimal 
2048 ($0800) anfängt und hier normaler- 
weise auch das BASIC-Programm liegt, 
sind normalerweise nur blinkende und in- 
verse Zeichen zu sehen. Da alle Ausgabe- 
routinen des AS-Interpreters nur auf die 
erste Textseite zugreifen, lohnt es sich 
nicht, den Befehl MIX in Verbindung mit 
der zweiten Grafikseite zu benutzen. 


& BACKCOL <color>: 

BACKCOL setzt die programminternen 
Zeiger auf die ausgewählte Hintergrund- 
farbe. 


& CLS: 

CLS löscht die Grafikseite, die durch 
PAGE ausgewählt wurde. Dabei werden 
keine anderen Veränderungen vorgenom- 
men, d.h. es wird weder auf die zu lö- 
schende Grafikseite umgeschaltet noch 








die MIX/FULL-Einstellung verändert. Man 
kann also auch eine Grafikseite verdeckt 
löschen und dann erst mittels HIRES auf 
die Grafikseite umschalten. 

Dieser Befehl entspricht nicht dem AS- 
Befehl HGR, da der Bildschirm mit der 
durch BACKCOL ausgewählten Hinter- 
grundfarbe gefüllt wird. Bei der Hinter- 
grundfarbe Schwarz entspricht dies dem 
Grafiklöschen. Wird BACKCOL 8 ausge- 
wählt, wird der Bildschirm bitmäßig inver- 
tiert. Diese Art wurde deshalb gewählt, 
weil die farbmäßige Invertierung nur auf 
Farbmonitoren zu sehen wäre. Auf einem 
monochromen Monitor würden sämtliche 
Punkte nur um einen halben Punkt in der 
Horizontalen verschoben. Die bitmäßige 
Invertierung hingegen ist auf beiden Arten 
von Monitoren zu sehen. Wer trotzdem die 
farbmäßige Invertierung vorzieht, kann 
sich bei der Beschreibung des Program- 
mes darüber informieren, wie man diese 
Routine ändert. 


& COL <color>: 

COL bestimmt die Zeichenfarbe für sämtli- 
che folgenden Zeichenbefehle, auch für 
die normalen AS-Befehle. COL unter- 
scheidet sich allerdings von dem AS-Be- 
fehl HCOLOR= durch die zusätzliche Far- 
be INVERS (color 8). Wird mit dieser Farbe 
gezeichnet, so werden die gesetzten 
Punkte auf dem Bildschirm bitweise inver- 
tiert. Alle AS-Befehle ignorieren diese 
Farbeinstellung und zeichnen statt dessen 
mit der Farbe Weiß. 


& PSET <x>,<y>: 
PSET setzt einen Punkt mit den angege- 
benen Koordinaten in die Grafikseite. Die- 
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ser Befehl entspricht dem AS-Befehl 
HPLOT <x>,<y>; der ABU-Befehl kennt 
die zusätzliche Zeichenfarbe INVERS. 


& LINE ( <x1>,<y1> ) TO <x2>,<y2> 
(.. TO <XN>,<yN>): 

LINE verbindet die angebenen Koordina- 
ten mit Linien. Auch hier gilt die zusätzli- 
che Zeichenfarbe INVERS. Es können be- 
liebig viele Koordinatenpaare angegeben 
werden, allerdings wird die Anzahl von der 
maximalen Länge einer BASIC-Zeile be- 
grenzt. Man kann aber in der nächsten 
Zeile weiterschreiben, indem man das er- 
ste Koordinatenpaar wegläßt und direkt 
nach dem „LINE“ das „TO“ schreibt. 
Dann wird als Startpunkt für die erste Linie 
der zuletzt gezeichnete Punkt genommen. 
Dieser kann von allen Zeichenbefehlen 
aus ABU oder von allen AS-Zeichenbe- 
fehlen stammen. 


& REC <x1>,<yl>,<x2>,<y2>: 

REC zeichnet ein Rechteck. Die beiden 
Koordinatenpaare geben zwei diagonal 
gegenüberliegende Ecken des Rechtecks 
an. Welche Ecken angegeben werden und 
in welcher Reihenfolge, ist gleichgültig. 
Auch dieser Befehl kennt die Zeichenfarbe 
INVERS. 


& BOX <x1>,<yl>,<x2>,<y2>: 

BOX zeichnet ein ausgefülltes Rechteck, 
dessen Ecken durch die angegebenen 
Koordinaten bestimmt werden. Bei der 
Zeichenfarbe INVERS wird der angegebe- 
ne Bereich invertiert. Damit ist es im Ge- 
gensatz zum Befehl CLS möglich, Teile 
des Bildschirms zu invertieren. 


& CIRCLE <x>,<y>,<x-radius> 

(, ( <y-radius> ) (‚<step> )): 

CIRCLE zeichnet eine Ellipse um den Miit- 
telpunkt, der durch das erste Koordinaten- 
paar bestimmt wird. Parameter 3 und 4 
bestimmen über den X- und Y-Radius, wie 
groß die Ellipse wird. Diese beiden Para- 
meter können im Bereich zwischen O und 
300 liegen. Teile der Ellipse, die über den 
Bildschirmrand hinausgehen, werden 
nicht gezeichnet. Als fünfter Parameter 
kann ein Stepwert bzw. eine Schrittweite 
angegeben werden. Je größer dieser Wert 
ist, um so weniger Punkte des Keises 
werden berechnet, d.h. der Kreis wird ek- 
kiger. Ein Stepwert von Null wird automa- 
tisch zu Eins. Der größte Stepwert ist 255; 
allerdings erscheint dann auf dem Bild- 
schirm eine Raute. Fehlt der Stepwert, 
wird er automatisch auf Eins gesetzt. Auch 
der Y-Radius kann wegfallen. Dann wer- 
den X- und Y-Radius als gleich angese- 
hen, und es erscheint ein Kreis auf dem 
Bildschirm. Soll der Y-Radius entfallen, 
aber trotzdem ein Stepwert angegeben 
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werden, werden zwei Kommata hinterein- 
ander gesetzt (Bsp.: & CIRCLE 
139,96,50,,10). Auch bei diesem Befehl 
kann mit der Farbe INVERS gezeichnet 
werden, dann treten allerdings Ungenau- 
igkeiten auf: Die Ellipse wird dann an den 
vier Punkten, die die X- und Y-Achse 
schneiden, nicht geschlossen. Das liegt 
daran, daß die Ellipse sich aus vier Teilen 
zusammensetzt, die an jenen vier Punkten 
zusammenstoßen. Dadurch werden die 
Punkte doppelt gezeichnet, was bei der 
Farbe INVERS dazu führt, daß sie wieder 
gelöscht werden. 


& FILL <x>,<y>: 

FILL füllt eine geschlossene Fläche mit der 
gewünschten Zeichenfarbe aus. Die ange- 
gebenen Koordinatenpunkte gelten dabei 
als Startpunkt. Ist die Fläche nicht ge- 
schlossen, läuft der gesamte Bildschirm 
voll. Mit INVERS wird nicht gefüllt, die 
Farbe wird automatisch zu Weiß. Bei allen 
anderen Farben außer Schwarz und Weiß 
kann es zu Problemen kommen. Farbige 
Linien sind auf einem monochromen Mo- 
nitor in Richtung der X-Achse gestrichelt. 
Daher sind sie auch in der HGR-Bitmap 
des Apple, nach der sich die Fill-Routine 
richtet, nicht geschlossen. Die Routine er- 
kennt deshalb farbige Linien nicht als Be- 
grenzung an. 


& TEST <x>,<y>,<varname>: 

TEST fragt ab, ob ein Punkt mit den ange- 
gebenen Koordinaten gesetzt ist oder 
nicht. Entsprechend wird in der Variablen, 
die als dritter Parameter angegeben wer- 
den muß, eine Eins (Punkt auf Koordinaten 
gesetzt) oder eine Null (...nicht gesetzt) 
abgelegt. Diese Variable muß numerisch 
sein, kann also auch vom Typ Integer sein. 
Auch hier richtet sich die Test-Routine 
nach der Bitmap, in der nicht jeder farbige 
Punkt gesetzt wird (siehe unter FILL). Es 
kann also passieren, daß man einen Punkt 
setzt und die Test-Routine trotzdem den 
Wert Null zurück gibt. 


& INPUT (“Text“;) <varname>: 

INPUT gibt an der momentanen Cursorpo- 
sition den Text aus, der dem INPUT-Be- 
fehl in Anführungsstrichen folgt, und er- 
wartet dann vom Benutzer eine Eingabe. 
Ist die Variable hinter dem Semikolon eine 
Stringvariable, so erwartet die Input-Routi- 
ne einen beliebigen Text vom Benutzer. 
Dieser Text darf sämtliche Zeichen enthal- 
ten, die mit der Tastatur einzugeben sind, 
außer Otrl-C und Return. Return schließt 
die Eingabe ab. Wurde als erstes Zeichen 
ein Otrl-C eingegeben, so bricht das Pro- 
gramm mit „BREAK IN ...” ab. Wird als 
erstes Zeichen Return gedrückt, so wird 
die Variable nicht verändert, d.h. der alte 
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Wert bleibt erhalten. Ist die Variable hinter 
dem Semikolon eine numerische Variable, 
kann der Benutzer einen beliebigen nu- 
merischen Ausdruck eingeben. Dieser 
Ausdruck wird automatisch interpretiert 
und das Ergebnis in der Variable abgelegt. 
Gtrl-C und Return wirken wie bei der Ein- 
gabe von Texten. Folgt der Variablenname 
direkt dem INPUT, wird der Text und das 
Semikolon weggelassen. In diesem Fall 
wird ein Fragezeichen ausgegeben. 


& ERR: 

ERR verhindert ein Überlaufen des Stacks 
nach dem Auftreten von Fehlern im BA- 
SIC-Programm. Arbeitet man mit „ONERR 
GOTO ...“ und springt von der Fehlerbe- 
handlung wieder ins Programm zurück, so 
wird nach einiger Zeit das Programm mit 
einer Fehlermeldung unterbrochen, wenn 
zuviele Fehler auftreten. Um dies zu ver- 
hindern, sollte man als erstes in der Feh- 
lerbehandlungs-Routine mit & ERR dieses 
Überlaufen des Stacks verhindern. Da- 
durch können beliebig viele Fehler auftre- 
ten, ohne daß der BASIC-Interpreter aus- 
steigt. 


& GOTO <zeilennummer>: 

GOTO entspricht dem gleichnamigen AS- 
Befehl, die Zeilennummer kann hier aber 
ein beliebiger numerischer Ausdruck sein. 
Dieser wird interpretiert und das Ergebnis 
als die anzuspringende Zeilennummer an- 
gesehen. Existiert diese nicht, so erfolgt 
auch hier die Fehlermeldung „UNDEF’D 
STATEMENT ERROR IN ...“. 


& GOSUB <zeilennummer>: 

GOSUB entspricht dem gleichnamigen 
AS-Befehl, für die Zeilennummer gilt das 
unter GOTO Gesagte. 


& RESTORE <zeilennummer>: 
RESTORE setzt den Datazeiger auf die 
angegebene Zeile. Befindet sich in dieser 
Zeile kein DATA-Statement, so wird auto- 
matisch das nächste gesucht und der Da- 
tazeiger auf die gefundene Zeile gesetzt. 
Gibt es ab dieser Zeile kein DATA- 
Statement mehr, wird beim nächsten Le- 
seversuch durch READ eine Fehlermel- 
dung ausgegeben. Für die Zeilennummer 
gilt das gleiche wie bei GOTO. 


3. Das Programm 


Das Programm wird durch BRUN ABU 
oder — wenn es sich bereits im Speicher 
befindet — durch CALL 32768 (= $8000) 
gestartet, und die Variablen werden auf 
ihre Startwerte gesetzt. Da die Routinen 
über das Ampersand-Zeichen „&" aufge- 
rufen werden, muß auch der Ampersand- 
Vektor in Page 3 auf die Auswert-Routine 
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von ABU gelegt werden. (Zur Auswert- 
Routine siehe AGE-Programm von Klaus 
Schäfer, Peeker 1/86, S. 30ff.) Auch HI- 
MEM wird von ABU neu gesetzt, um zu 
verhindern, daß ABU durch Variablen 
überschrieben wird. Aus diesem Grund 
sollte ABU gestartet werden, bevor ir- 
gendwelche Variablen benutzt oder di- 
mensioniert werden. Danach gibt es die 
Kontrolle wieder an den BASIC-Inter- 
preter. 


Jedesmal, wenn das Ampersand-Zeichen 
im BASIC-Programm auftaucht, verzweigt 
der Interpreter zur Auswert-Routine von 
ABU. Diese vergleicht den Namen hinter 
dem Ampersand-Zeichen mit den Namen 
in der Tabelle. Stimmt er überein, so wird 
die Startadresse dieser Routine aus der 
zweiten Tabelle geholt, auf dem Stack ab- 
gelegt und dann durch ein RTS ange- 
sprungen. Wird der Name nicht gefunden, 
so wird ein „SYNTAX ERROR IN ..." aus- 
gegeben. 

Die einzelnen Routinen, die angesprun- 
gen werden können, werden im folgenden 
beschrieben: 


PAGE: 

PAGE holt mittels der ROM-Routine GET- 
BYTE die gewünschte Pagenummer. Nach 
einem Quantity-Check, d.h. einer Be- 
reichsprüfung, wird die Nummer in der 
Variablen PAGENUM abgelegt. Gleichzei- 
tig wird der entsprechende Wert in der 
Zeropage-Variablen HPAG abgelegt. Die- 
ser Wert wird aus einer Tabelle geholt, die 
im Anschluß an dieser Routine im Spei- 
cher steht. 

HIRES: 

HIRES betätigt nur die Softswitches in der 
$C0-Page. Dabei wird entsprechend der 
Variablen PAGENUM entweder HGR-Sei- 
te 1 oder 2 eingeschaltet. 

FULL: 

FULL betätigt nur den Softswitch $C052, 
der auf die gesamte Grafikseite umschal- 
tet, Dieser ist allerdings nur bei einge- 
schalteter Grafik sinnvoll. 

MIX: 

MIX betätigt analog zu FULL nur den Soft- 
switch $C053, der den Befehl FULL wie- 
der rückgängig macht. 

BACKCOL: 

BACKCOL liest die folgende Zahl mittels 
GETBYTE ein und setzt nach einem Quan- 
tity-Check die Variable BCKCOLOR auf 
diesen Wert. 

CLS: 

CLS überprüft die Variable BCKCOLOR. 
Liegt ihr Wert zwischen null und sieben, 
wird eine ROM-Routine angesprungen, 
die den Bildschirm mit dieser Farbe füllt. 
Bei acht wird zu einer eigenen Routine 
gesprungen, die den Bildschirm invertiert. 
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Wer statt der bitmäßigen Invertierung die 
farbmäßige vorzieht, muß das EOR #$7F 
in ein EOR #$80 umwandeln. 

COL: 

COL liest den Farbwert mittels GETBYTE 
ein und setzt nach einem Quantity-Check 
zwei Variablen. In COLOR wird die 
Faronummer abgelegt. COLORI ist ein 
Flag, in dem gespeichert wird, ob die Far- 
be INVERS ausgewählt wurde. Anschlie- 
Bend wird die Farbe durch die ROM-Routi- 
ne SETHCOL gesetzt. 


PSET: 

PSET liest die Koordinaten mittels der 
ROM-Routine GETKOORD ein. Nach 
Überprüfung der Variablen COLOR1 wird 
entweder die ROM-Routine HPLOT oder 
die eigene Routine XPLOT aufgerufen. 


LINE: 

LINE überprüft zunächst das nächste Zei- 
chen im BASIC-Text. Ist es das „IO”- 
Token, so wird der erste Teil der Line- 
Routine übersprungen. Ansonsten wird 
das erste Koordinatenpaar geholt und der 
Grafikcursor auf die entsprechende Stelle 
gesetzt. Dann wird ein Syntax-Check auf 
das TO-Token durchgeführt und das näch- 
ste Koordinatenpaar geholt. Entsprechend 
der Variablen COLORT wird entweder die 
ROM-Routine HPLOTTO angesprungen, 
die die Linie zeichnet, oder die eigene 
Routine XPLOTTO. Diese Fallunterschei- 
dung wird auch in allen anderen Zeichen- 
Routinen vorgenommen, sie wird aber 
nicht mehr beschrieben. Nun wird über- 
prüft, ob noch ein weiteres Koordinaten- 
paar folgt. Ist dies der Fall, wird der letzte 
Schritt wiederholt, sonst wird die Kontrolle 
wieder an den BASIC-Interpreter zurück- 
gegeben. 

REC: 

REC holt beide Koordinaten mittels GET- 
KOORD und verbindet diese anschließend 
zu einem Rechteck. 

BOX: 

BOX holt beide Koordinatenpaare mittels 
GETKOORD und sortiert die beiden Y- 
Werte der Größe nach. Anschließend wer- 
den in einer Schleife sämtliche Y-Werte 
zwischen diesen beiden Koordinaten 
durchlaufen, und es wird jeweils von der 
einen X-Position zur anderen eine Linie 
gezogen. 

CIRCLE: 

CIRCLE holt sich zuerst alle Parameter, 
die übergeben werden. Dabei wird auch 
beachtet, daß zwei Parameter entfallen 
können. Die Circle-Routine holt sich in 


_ einer Schleife, in der die Winkel zwischen 


O und 90 durchlaufen werden, die Sinus- 
und Cosinus-Werte aus einer Tabelle und 
multipliziert sie mit dem Radius. Auf diese 
Weise wird ein Viertelkreis berechnet, die 
drei anderen Viertelkreise werden gespie- 
gelt. Die Tabelle enthält die Cosinuswerte 


für die Winkel zwischen O und 90 Grad. 
Diese Werte wurden mit 128 multipliziert 
und die Nachkommastellen abgestrichen. 
Für die Sinuswerte wird auf die Tabelle 
von hinten zugegriffen. 

TEST: 

TEST holt sich die Koordinaten mittels 
GETBYTE, setzt den Grafikcursor auf die 
angegebene Koordinate und überprüft das 
entsprechende Bit. Anschließend wird der 
Varlablenname ausgewertet und der Wert 
des Bits in dieser abgespeichert. 


FILL: 

FILL durchläuft alle X-Positionen in einer 
Reihe bis zu einer Begrenzungslinie. Da- 
bei merkt sich die Routine alle noch nicht 
ausgefüliten Flächen ober- und unterhalb 
dieser Reihe. Gibt es keine freien Flächen 
mehr, so springt die Routine wieder zum 
BASIC-Interpreter. 

INPUT: 

INPUT testet das nächste Zeichen im BA- 
SIC-Text. Ist es ein Änführungszeichen, 
wird der Text in den ÄAnführungszeichen 
mittels ROM-Routinen ausgegeben, an- 
sonsten wird ein Fragezeichen ausgege- 
ben. Anschließend wird zur ROM-Routine 
INLINE gesprungen, die alle Zeichen an- 
nimmt. Nun wird der Variablenname und 
der eingegebene String ausgewertet und 
das Ergebnis in der angegebenen numeri- 
schen oder String-Variablen abgelegt. 
ERR: 

ERR initialisiert nur den Stack neu, so daß 
kein Überlauf auftreten kann. Dabei muß 
allerdings darauf geachtet werden, daß 
nicht die letzte Rücksprungadresse vom 
Stack genommen wird, da sonst nicht zum 
BASIC-Interpreter zurückgesprungen 
werden kann. 

GOTO: 

GOTO holt die Zeilennummer mittels 
FRMEVL, legt das Integer-Ergebnis in $50 
und $51 ab und springt anschließend zum 
regulären GOTO-Befenl. 


GOSUB: 

GOSUB simuliert den normalen GOSUB- 
Befehl, d.h. die Ablage der Rücksprung- 
adresse und des Gosub-Tokens auf dem 
Stack, holt die Zeilennummer mittels 
FRMEVL und springt anschließend zum 
normalen GOTO-Befehl. 


RESTORE: 

RESTORE holt die Zeilennummer mittels 
FRMEVL, sucht die Zeilennummer im 
Speicher und legt den gefundenen Zeiger 
in dem Datazeiger in der Zeropage ab. 
Steht dieser Zeiger allerdings nicht auf 
einem Data-Statement, so wird der näch- 
ste Doppelpunkt oder das Ende der Zeile 
gesucht und der Zeiger darauf gesetzt. 
Der READ-Befehl sucht selber nach dem 
nächsten DATA-Statement, nur muß der 
Datazeiger dazu auf einem Doppelpunkt 
oder auf dem Ende einer Zeile stehen. 


Peeker 1/87 


Kurzhinweise 


1. Zweck: 

Befehlserweiterung des Applesoft-BASIC 
durch Ampersand-Befehle. 

2. Konfiguration: 

Apple li+/lle/llc; DOS 3.3 (kein ProDOS 
wegen HIMEM-Änderung). 

3. Test: 

RUN ABU.DEMO 

4. Sammeldisk: 

ABU.DEMO 

T.ABU (Big-Mac-Quelltext, im Heft nicht 
gelistet) 

ABU (Objektcode) 

5. Sonstiges: 

Beachten Sie, daß Sie ABU.DEMO oder 
ähnliche Programme, die mit &GOTO oder 
&GOSUB arbeiten, nicht mit normalen Re- 
number-Programmen umnumerieren 
können, 


175 
18% 
185 
199 
195 
288 
285 
218 
215 
228 
225 
239 
235 


240 
245 
259 
255 
269 
265 
278 
219 
280 
285 





YS = SCN (Yı - 55) 

Ko ya 

Y2 = Yl-Y2«Ys 

& BOXX1,Y1,X2,Y2 

FOR 0 =1T0 6 

& RECX1,Y1,X2,Y2 

NEXT 0,1 

& GOSUB PAUSE 

& BACKCOLE 

FOR I=1105 

& CLS 

NEXT I 

& GOSUB PAUSE 

& BACKCOL®B: & COL3 
EICLs 

D= 3.141 / 180 

FOR I = ® TO 368 STEP 19 
& CIRCLESß + I / 2,96 - 
SIN (D « I) x 46,49, ,19 
NEXT I 

& GOSUB PAUSE 

Lac 

FOR I = 0 TO 38 

X = INT ( RND (1) » 219 
Y= INT ( RND (1) * 136 
XR = INT ( RND (1) = 39 
YR = INT ( RND (1) = 39 
ST = INT ( RND (1) = 22 
& CIRCLEX, Y,XR,YR,ST 


37B NEXT I 

Si & LINBISS,.] 107139:.191 

380 & LINE44,96 TO 234,96 

385 FOR I=1T0 3 

398 & FILL167 + I x 29,98 

395 & FILLIl2 —- I * 28,94 

ABB IF I = 3 THEN 415 

Aß5 & FILL141,59 - I x 20 

AlÖ & FILL137,133 + I = 29 

415 NEXT I 

A2d & GOSUB PAUSE 

A25 & BACKCOL3: & COLB 

430 & CLS 

A35 FOR X = 139 TO 8 STEP — 4 

4A4Ö & LINEL39,191 TO X, 

445 & LINE1498,191 TO 279 - X,d 

A5Ö NEXT X 

455 FOR Y = # TO 188 STEP 4 

A569 & LINEI49,191 TO 279,Y 

465 & LINEIl39,181 TO ®6,Y 

47 NEXT Y 

475 & GOSUB PAUSE 

480 TEXT 

485 HOME 

A3ß PRINT "Geben Sie einen num, 
Ausdruck ein!" 

4955 & INFUT "ABU >": AU 

5ß8 PRINT : PRINT "Das Ergebnis 
lautet: ";AU 


ABU.DEMO 


18® PRINT CHR$ (4)"BRUN ABU" 
105 PAUSE = 545 

118 & BACKCOLB 

115 & CLS: & HIRES: & COL8 
128 FOR I = 1 T0 59 

125 Xl = INT ( RND * 28ß) 
138 Yl = INT ( RND x 192) 
135 X2 = INT * 5ß) 
149 Y2 = INT x 59) 
145 XS = SCN 





Peeker-Sammeldisk #25 


DOS-3.3-Diskette; Heft 1/1987 
Einzelbezug DM 28, — 
Fortsetzungsbezug DM 20,- 

(1) Zweck; (2) Heft/Seite; (3) Geräte- 
konfiguration; (4) Betriebssystem; (5) 
Programmstart; (6) Sonstiges 


A 025 TABLE.EDITOR 

A 028 SHAPE.EDITOR 

A 027 SHAPE.CREATE 

B. 002 STTEBI 

A 003 UEBERSICHT 

(1) Shape-Entwicklungspaket; (2) 1/87, 
S. 6; (3) Apple Il+/e/c; (4) DOS 3.3 
oder ProDOS; (5) RUN UEBERSICHT 
oder direkt RUN TABLE.EDITOR usw.; 
(6) Als Shapes zum Ausprobieren des 
Programms kann man neben ST.EDIT 
auch die Mousory-Shapes von Sammel- 
disk #19 verwenden. 


A 011 TRACE.KORREKTUR 

(1)  BASIC.SYSTEM-Patch-Programm 
zur Beseitigung des Trace-Bugs; (2) 
1/87, S. 20; (3) Apple Il+/e/c; (4) 
BASIC.SYSTEM 1.0 oder 1.1; (5) siehe 
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290 NEXT I 
295 & GOSUB PAUSE 
300 & COL8 
305 FOR I = ß TO 56 
310 Xi = INT ( RND (1) x 289) 
315 X2 = INT ( RND (1) x 28ß) 
328 Yl = INT { RND (1) = 192) 
325 Y2 = INT ( RND (1) « 192) 
330 & LINEX1,Yl TO X2,y2 
335 FOR WA = Ö TO 59: NEXT WA 
348 & LINEX1,Yl TO X2,Y2 
345 NEXT I 
350 & GOSUB PAUSE 
355 & CLS: & COL3 
360 FOR I = 45 TO 95 STEP 18 
365 & CIRCLE1l39,96,1,,3 





Aufsatz; (6) TRACE. KORREKTUR muß 
zunächst mit CONVERT oder DOSTO- 
PRO von der Sammeldisk auf Ihre 
ProDOS-Arbeitsdisk konvertiert werden. 


A 017 PROGRAMMVERWALT 

A 005 ALPHASORT 

T 002 PROGRAMMDATEI 

(1) Verwaltung von Programmen bzw. 
Programmnamen; (2) 1/87, S. 24; (3) 
Apple II+/e/c in 40 Z/Z; (4) DOS 3.3 
oder ProDOS; (5) RUN PROGRAMM- 
VERWALT 


A 007 ABU.DEMO 

T 074 T.ABU 

B 013 ABU 

(1) Ampersand-Befehlserweitungen 
(&Circle, &Box, &Goto, &Restore usw.); 
(2) 1/87, S. 30; (3) Apple Il+/e/c; (4) 
DOS 3.3 (kein ProDOSI); (5) RUN ABU. 
DEMO 


T 007 CAT.P 
T 060 CAT. 
(1) Catalog-Befehle für Kyan-Psacal; (2) 


505 & GOSUB PAUSE 

518 HOME 

515 PRINT "Geben Sie einen bel. 
Text ein:" 

52B & INPUT "ABU >";TE$ 

525 PRINT : PRINT "Sie gaben ein: " 
TE$ 

530 & GOSUB PAUSE 

555 & HELF 

549 END 

545_CALL — 198: REM Pause-Routine 

E5A FOR I = 1 TO 1999 


555 IE PERK | — 16384) >.197 
THEN GET G$: GOTO 565 

560 NEXT I 

565 RETURN 





1/87, S. 36; (3) Apple II+/e/c; (4) Kyan- 
Pascal ab Version 2.0; (5) CAT von Kix- 
Menü; (6) CAT.P und CAT.| müssen zu- 
nächst mit CONVERT oder DOSTOPRO 
auf Ihre Kyan-Arbeitsdisk konvertiert 
werden. Danach CAT.P compilieren. 


17912 BISMITEXT 

T 069 DISM2.TEXT 

T 078 DISM3.TEXT 

T 046 DISMA.TEXT 

(1) P-Code-Disassembler für UCSD; (2) 
10/85, S. 44-46 (Beschreibung aller 3 
Utilities); (3) Apple II+/e/c; (4) Apple- 
Pascal 1.1 oder 1.2; (5) Die drei großen 
Pascal-Utilities sind damit auf die Sam- 
meldisketten #22 (Disk-Editor),, #24 
(Library-Programm) und #25 (Dis- 
assembler) verteilt. Ferner wird das 
UTILITY-Programm von Sammeldisk 
#23 benötigt. 


Hüthig Software Service 
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BSAVE ABU, A$8000, 
L$OBA3 


senoe: Ay Bd AB BB 85 73 84 74 
$s0B8: A9 AC AB 31 AZ 80 8D F5 
58018: 93 SC F6 B3 BE F7 B3 A9 
S8B18: Öl 8D Bl SF A9 26 85 E6 
|$802#: A2 63 SE 02 SF 28 EC F6 
$ed28: A9 BB 8D 4 SF 8D 95 8F 
58036: 60 A2 FF A9 B0 8D dA BF 
$8038: AB FF ES C8 BD SF 89 C9 
88040: 28 FO 16 C9O FF FO 23 D1 
$8048: BB FÜ EF ES BD 6F 89 C9 
98050: 20 DB F8 EE fd 8F AC 38 
$8058: 80 AD BB SF BA AA BD C9 
$8060: SB AB BD C8 BB 48 20 98 
|$gedss: D9 68 A2 18 AC 12 DA 59 
Ss07B: Al 47 45 28 48 49 52 45 
H8078: 55 20 46 55 AC AC 28 AD 
seded: 49 58 20 A2 Al 43 AB 43 
$8B88: AF AC 28 43 AC 53 20 43 
$sgsß: AF AC 20 50 55 45 54 20 
$8098: AC 49 AE A5 RD 52 45 43 
Sedad: 20 A2 AF 58 20 43 49 52 
G8BA8: 43 AC 45 2 54 45 53 54 
$80BB: 28 A656 49 AC AC 20 AB 20 
$8ßBB: BB 20 AE 20 84 20 45 52 
$süch: 52 20 48 45 AC 50 20 FF 
$80C8B: EF 88 BA 81 1A 81 1E 81 
|$8oD0: 22 81 32 81 65 8l 8F 81 
$S0D8: AT 81 51 82 11 83 71 83 
| $e0Ed: 53 87 BA 87 41 89 AA 89 
$80EB: 67 89 AA 89 2A BA 54 8A 
$8ÖFß: 20 FB E6 EB Bl BB 85 A2 
SeßF8: 35 28 12 DA EB 93 BO F7 
$8188: SE dl SF BD ß8 81 85 E6 
gB1ld8: 6A 20 AB AD 50 CQ$ AD 57 
$8110: CO AD 52 CO Ak Bl BF BD 
s81l8: 53 CO 6D 2E 52 Cd 6ß 2C 
S8120: 53 CO 6 20 FB E6 EB 89 
$8128: 98 65 A2 35 28 12 DA BE 
|$8130: 4 BF 68 AB BA BF Ed d8 
|$8138: FO 11 208 EC F& A5 EA 85 
$8140: 1C 28 F6 F3 AE 02 8F 29 
$8148: EC F6 6ß A9 BO 85 d6 A5 
$8150: E6 85 B7 A2 208 AB BB Bl 
$8158: d6 49 7F 91 B6 CB DO F7 
$816ß: E6 07 CA DO FB 69 208 FB 
$8168: E6 EB P9 30 05 A2 35 AC 
$8176: 12 DA Eß 98 FB GC SE B2 
$8178: SF 28 EC F6 A9 dB 8D B3 
$8180: SF 60 A2 93 SE B2 8F 2B 
$8188: EC F6 A9 88 8D Ba BF 69 
$8196: 28 BY F6 2C 03 8F 39 94 
$8198: 28 57 FA 6B 28 11 F4 A5 
S81A0d: 38 29 7F 51 26 91 26 69 
S81A8: 20 BT BB cs Cl FB ds 29 
$81Bß: BY F&6 28 11 FA A9 C1 29 
$81B8: CQ DE 20 BY F6 8C 6 8F 
$s1cd: AS 8A AE B6 BF 2C B3 8F 
$8lCc8: 30 OB 20 3A F5 20 B7 Bd 
$81D6: C9 Cl FB El 60 28 DB 81 
$81D8: AC CD 81 48 38 E5 EP 48 
$81Eß: BA E5 Ei 85 D3 BO BA 68 
$81ES: 49 FF 69 Bl 48 A9 BO E5 
SelFd: D3 85 DI 85 D5 68 85 DB 
$81F8: 85 DA 68 85 EB 86 El 98 
$8200: 18 E5 ER 90 BA 49 FF 69 
$8208: FE 85 D2 84 E2 66 D2 38 
$8210: E5 DO AA A9 FF E5 DL 85 
58218: 1D A4 E5 Bd 05 BA 20 65 
$e8229: FA 38 A5 DA 65 D2 85 DA 
$8228: A5 D5 E9 BR 85 D5 A5 38 
98230: 29 7F 51 26 91 26 ES DB 
68238: 84 E6 ID FB 14 Ab DZ Bd 
88249: DC 20 D3 FA 18 A5 DA 65 
$8248: DO 85 DA A5 D5 65 DI 59 
$8250: DB 60 2B BY F& SE 97 8F 
$8258: 8C d8 SF 8D B9 BF AY 2C 
$8260: 28 CQ DE 28 BY F6 8E BA 
58268: BF 8C BB BF 8D BC 8F 2C 
$8270: 03 SF 39 3D AB B7 BF AC 
$8278: 08 SF AD 69 SF 29 11 FA 
$8280: AD 07 BF AE 88 BF AC GC 
$8288: aF 20 3A F5 AD BA 8F AB 
88290: BB SF AC BC BF 20 3A F5 
$8298: AD BA BF AE ÖB SF AC 99 
| $82AB: 8F 20 3A F5 AD 97 SF AE 

$82A8: B8 SF AC PS BF 20 3A Fb 
$82Bß: 69 AE 87 SF AC B8 BF AD 
$82B8: 09 8F 2B 9C 81 AD 97 8F 
$82C0: AE 68 SF AC ÄC SF 29 DB 
$82C8: 
$82DB: 





SE 

45 

2d 

45 

gs 

52 

45 

al 

3E 

28 

3B 

AD 45 
BB 98 99 





34 Peeker 1/87 


BUCHHALTUNG 
mit BUCH 


Doppelte Buchführung, die auf 
Selbständige und Kleinunter- 
nehmer zugeschnitten ist: 


- 14 Tage frei zur Ansicht! 

- einfache und sichere 
Benutzerführung 

- Prüfsiegel »anwender- 
freundliche Software« 

- Betriebsübersicht, G&V 
Rechnung, Debitoren und 
Creditoren, Journal, Konten- 
blätter, Saldenliste 

- automatische Umsatzsteuer- 
verbuchung 

- das Programm hat eine Lohn- 
steueraußenprüfung des Fi- 
nanzamtes in unserem Hau- 
se bestanden 


»Ein leistungsfähiges, leicht zu 
bedienendes Werkzeug...« 
(Testbericht PC-Soft, 7/85) 
»...halten wir dieses Finanz- 
buchhaltungsprogramm für 
ganz ausgezeichnet.« (Soft- 
waretestjahrbuch '85) 


660,— DM für Apple II + 
lle/llc und IBM-PC/XT/AT, 
Commodore PC 10 etc. 


Informationen bei 


RÖNTGEN SOFTWARE 


Simpert-Krämer-Str. 44, 
8909 Edelstetten, 
Tel. 08283/1463 





Erster aaa „little big“ Ableger 
für Apple Il/+/e, Basis 108 und compatible 


Sicher. - Wir haben uns bei der Entwicklung u. Fer- 
tigstellung unsererMega Ramcard Il® etwas Zeit 
gelassen, damit Sie jetzt auch Zeit gewinnen. 
Und das hat sich gelohnt! 

Die Tests, aber auch die mitgelieferten Ramdisk- 
treiber-Programme für folgende Betriebssysteme, 
beweisen es: 


„ Apple DOS 3.3 

» Diversi DOS 2-C/4-C 

„ Apple ProDOS 1.0.1, 1.1.1 

„ Apple Pascal 1.1 
Apple Pascal 1.2/64 K, 1.2/128 K 
Apple Pascal 1.3/64 K, 1.3/128 K 

» (P/M 2.2 für 
Microsoft Softcard, CP/M 2.20, 2.23 
Microsoft premium card, GP/M 2.26 
Microsoft Softcard Il, CP/M 2.28 


Sogar nach einem „Systemabsturz“ oder Betriebs- 
systemwechsel bleiben alle Dateien erhalten! 
Peripherieslot und Speicherkapazität werden auto- 
matisch erkannt, sodaß das lästige Eingeben ent- 
fällt. 

Mega Ramcard II® istmitden erphi-AFDC2/AFDC3- 
Controller vollständig kompatibel, u.v.m. 
Demo-Diskette = 4,50 (in Briefmarken) anfordern. 
Händleranfragen schriftlich erwünscht. 


Mega Ramcard Il, 1MByte bestückt + Software 
(s.0.) + deutsches Handbuch, Il/+/e iR 
Mega Ramcard Il, 256 K-RAM best. (bis 1 MB 
aufr.) + Software (s.o.) + dt. Hb., I/+/e 498,- 


Apple-Works Anpassung 69,- 


Disk II-Siemens-Laufwerk im Geh.+ Kabel. orig. + 
comp. Contr. geeignet, II/+/e 298,- 
Disk II-Siemens-Laufw.+ Contr.+ Kabel, 

UEZE 359,- 
Erphi-AFDC2-Controller + Autopatch Software 

+ deutsches Handbuch, Il/+/e LK 1: Ra 
DSL TSETIN LO ET DT TETE.S 

640 KB f. AFDC2 0. 3 modifiziert, I/+/e 298,- 
Erphi-DuoDisk 1,2 MByte im Gehäuse + 
Erphi-AFDG3-Controller, I/+/e Li] Ben 


REPARATUREN an Apple + Compatiblen Geräten + Zubehör 
führt unser Spezialteam garantiert zuverlässig + besonders 
kostengünstig aus.. Sprechen Sie mit uns. 
Kostenvoranschlag auf Wunsch! 


R, electronic a 


Telex 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (0761) 276864 
Bauelemente — Bausätze — uP’s 
Meßgeräte — Zubehör — Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 
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Nicht jeder kann und möchte an seinen Apple //-Rechner unser MEGA-CORE oder 
die MDB 10/20 anschließen. Gerade für diesen Personenkreis bietet sich das MEGA- 
BOARD als der alternative und preiswerte Einstieg zum komfortablen Festplattenbe- 
trieb an. Das Manual führt Sie zielsicher zu Ihren Wünschen: 

® Festplattenbetrieb von 5-64 MBytes 

® Betriebssystembereiche frei wählbar 

@ Booten von der Festplatte 

@ Betriebssysteme DOS, MS-DOS, CP/M, UCSD-Pascal, PrODOS 

menuegesteuert im Zugriff. 

Zum Lieferumfang gehört der Controller MEGA-BOARD, alle Kabel mit Steckern, 
Installationssoftware, das ausführliche Manual und auf Wunsch die Festplatte zum 


Tagespreis. 
FRANK & BRITTING 


Elektronik Entwicklungs GmbH 
Lange Straße 4, 7529 Forst 
Telefon: 07251 /103068-69 
Telex: 7822452 fub d 


Die Harddiskcontroller-Spezialisten 


Ein Produkt von: 





Ausgabe und 
Eingabe ni: 


TYPETERM® 


im Slot Ihres 


APPLE IV/lle/llgs 


Das bedeutet: Computer- 
textverarbeitung von der 
Schreibmaschinentastatur ! 
Steckerfertig ohne Umbau. 


Ausgabe mi: 


TYPETERM® 
JUNIOR 


im Slot Ihres 


APPLE IlV/lle/ligs 


Paketpreis DM 899,- 
Schreibmaschine AX-10 mit 
Interface TYPETERM JUNIOR, 
steckfertig. 


Die neue CE-550! 
mit TYPETERM DM 1.398,— 


TYPETERM- DM 479,— 
Interface 

für alle BROTHER-Typenrad- 
schreibmaschinen ab AX-30 

bis EM-811 

(auch für Vorgängermodelle!) 
Paketpreis z.B.: 


EM-501 mit TYPETERM 
EM-511 mit TYPETERM DM 2412,— 
EM-701 mit TYPETERM DM 2468,— 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Ctl- 
Befehle. 4k ROM auf der Karte für DOS, 
PRODOS, CP/M, PASCAL. 2 Zeichensätze 
verfügbar z. B. deutsch u. ASCIl. Alle 
Features: Hoch-/Tiefstellen, autom. Unter- 
streichen, var. Zeichen und Zeilenabst., 
autom. Papierzuführung usw. 


TYPETERM - ein Produkt von 


interkom Kock & Mreches GmbH 
Postf., 3004 Isernhagen 4 


electronic Telefon 05139-87393 


Die Zukunft heute 


DM 2136,— 
TYPETERM JUNIOR mit AX-10 — unser 


besonders günstiges Gespann, ebenfalls 

steckfertig. Mit TYPETERM JUNIOR kann 

die AX-10 mehr. Sie wird zum vollwertigen 

Typenraddrucker für Ihren Apple: 

@ 3 verschiedene Schriftstärken 

@ Automatisches Unterstreichen 

@ 2 Zeichensätze z.B. deutsch u. ASCIl 

@ 2 Zeichenabstände 

@ 2k ROM auf der Karte für Ausgabe unter 
DOS, PRODOS, CP/M u. PASCAL. 


TYPETERM JUNIOR - ein Produkt von 


interkom Kock & Mreches GmbH 


‚ Postf., 3004 Isernhagen 4 
electronic Telefon 05139-87393 
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NEU: Jetzt mit aaa-Computer-Kredit S 
und bequemen monatlichen Raten! LEER/BESTÜCKT 


Industrie-Standard IBM-PC/XT+AT-compatible COMPUTER +Zubehör 
LEBTE Fette Tg a N 7 np] 
Mainboard XT-256, 8088 CPU, OK (bis 256K-on board, oder 
640 K mit Addr. auf Karte aufr.) + BIOS + 8 Slots, geprüft 
Mainboard XT-256 mit 256 K-RAM, sonst. w.o., gepr. 317,— 
Mainboard XT-640, 8088 CPU, OK (bis 640 K-on board) gepr. 89,—-/237,—— 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr. PA nn 
Mainboard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 407,— 
Mainboard TURBO XT-640 -4,7/8 MHz, OK, best. + gepr. 99,--/276,— 
Mainboard AT-1MB, 6/8 MHz, 80286 CPU, 16/24 bit (mit Sockel f. 80287) 
512K-RAM best.(bisiMB aufrüstb.)+BIOS+Uhr m.Akku+8 Slots, gepr.1229,— 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! X/A 32,— 
256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft! X/A (je 
Disk-Controller gepr. (f. 2x360 KB-Drives), X U 
Disk-Controller gepr. (f. 4x360 KB- ren Kabel=39,-), X 34, By En 
Disk-Controller gepr. (f. 2x1,2 MB-Drives), X pri Rn 
Disk-Controller gepr. (f. 2x1,2 MB-Drives, auch f. 360 K geeignet), A 169,— 
Harddisk-Controller f. PEN 2 287,— 
Harddisk+Floppy-Controller (| HD+2DD) gepr., A Li 
Monochrome Karte geprüft, X/A 49,--/149,—— 
Monochrome Graph.+Ppar.Print. Karte (Hercules comp.), YA 55,--/168,-— 
Color RGB + Video Graphikkarte+Lightpen-Ausg., gepr., YA 55,--/126,— 
Parallel Printer-Karte gepr. o. Kabel (Extra Kabel=49,-), XA 29,--/ 49,— 
RS 232 Interface (2xRS 232, 1 davon bestückt), X/A 29,--/ 73,—— 
RS 232 +par. Printer Karte gepr., X/A Ki: 5 
512K-RAM-Karte gepr. (OKB)(mit 64 KB-RAM bestückbar),X 55,--/ 88,—— 
512K-RAM-Karte gepr. (OKB)(mit 256 KB-RAM bestückbar-kurz),X 114,-- 
3 MB-RAM-Erweiterungsk. gepr. (OK), (m.256 K-RAM bestückbar), A 317,—— 
2,5 MB-Multifunktionskarte, OK, +RS 232,+par. Printer, gepr., A Re i° 7 nn 
384K-Multifunktionskarte, RS 232, par. Printer. Interf., Game/Joystick Port, 
Real Time Clock gepuff..@K+RAM-Disk/Spooler/Uhr Softw., X 55,--/189,-— 
Disk Multi /O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.), X Lie} -/169, -- 
Clock Karte gepuffert, geprüft, X 69,—— 
WO Plus-Il-Karte, 2xRS 232, (1xbest.), par. Printer-Interf., Game /Joystick 
Port, Real Time Clock ce geprüft, X rd Rn 


79,——/227,-— 


U TE NETTER TA Te eu lee Rn 

Game/Joystick Port, geprüft, A Ei Rn 
EGA-comp. Enhanced Graphic Adapter Karte, mit 256 K-RAM- 
Bildschirmspeicher, Monochrome-Color Graphik (640x350 

Punkte - 16 Farben) +par. Printer Int., voll best. +gepr., X/A 69,--/495,— 


AD/DA-Wandler, 12 bit, 16/1, X/A 295,—— 
AD/DA-Wandler, 14 bit, 16/2, X/A Er CR 
Option Board compatible Karte incl. Disk+Manual, (zum sichern 

kopiergeschützter Disketten, Kopierschutz wird mitübertragen), A 347,-— 


Eprom Writer, (f. 4 St. 2716/32/64/128/256/512 gleichzeitig), X/A 429,-- 
Prototype/Lochraster Leerkarte, durchkontaktiert, lang (Le 
Profi-Funktionstastatur ASCII + 15er Block ab 195,—— /dt. ab 225,-— 
135W/150W-Netzteil mit eingeb. Ventilator, kurzschlußf., X 195,—/215,—— 
200W-Netzteil mit eing. Ventilator, kurzschlußfest, A KU kn 
360KB-DiskdriveSlimline (TrackAccessTime <4mS),R/Wgepr.,X/A 277,-—- 
720KB-Diskdrive Slimline, 2x80 Tr. (TAT <2mS), R/W gepr., X/A KK 7 
1,2MB-Diskdrive Slimline, 2x80 Tr. (TAT <2mS), R/W gepr., X/A 347,—— 
21 MB-NEC-Harddisk, X/A 979,-- Micro Science, X/A 849,—— 
21 MB-NEC-HD+HD-Contr., X 1.285,——- MS-+HD-Contr,X 1.155,—— 
44 MB-NEC-Hardisk, X/A Rn 44 MB- NEO HDTC, p ni 349,-— 
21 MB, Harddisk+Controller in einem, anschlußfertig, X 1.298,-— 
Joystick f. IBM + Compatible, X/A 58,— 
Maus incl. Software (MOUSE Systems comp.), X/A 158,— 
Met.-Gehäuse aufkl. (Pl.f.4-Einb.-Drives), solide Ausf., X=198,--/ A=298,-— 
+++PC/XT+AT - KOMPLETT-SYSTEME AUFGEBAUT UND GEPRÜFT+++ 
XT-640, 8088 CPU (incl. Boot-Eprom) 256K-Ram incl. Lautsprecher, im 

IBM ER like Met.-Gehäuse+Profi-Fkt. Tast.+135 W-Netzt. gepr. U 
XT-640,w.0.+Contr.+360KBDrive+Color RGB+Vid. Graphik-Karte Ce 
XT-640, w.o. jedoch statt Color mit Monochrome Karte 1 
XT-640, w.o. jedoch mit Monochrome-Graphik-Printer-Karte 1.017,—- 
XT-640, 256 K-RAM+360 KB Drive+Disk Multi /O+Color-Gr.-Karte 1.097,-— 
XT-640, 256 K-RAM+360 KB Drive+Color RGB+Video-Graphik- 

Karte+21 MB-Festplatte+Controller 2.097,— 
AT-1MB, 6/8 MHz, 80286 CPU, 512 K-RAM, im IBM-look-like Met.-Gehäuse+ 
Profi-Fkt.Tast+200W-Netzt.+Color Graph.-Karte+1,2MB-Drive, gepr. 2.295,—— 
AT-1MB, w.0.+21MB-Harddisk gepr. 3.785,—— 
Aufpreis für Turbo XT-640 -4,7/8 MHZ umschaltbares Board, X 39,—— 
Aufpreis für XT-640 M-board mit 640 K von 256 auf 640 K-RAM, X 

Aufpreis f. EGA anstatt Color Graph.-Karte, X/A 

MS-DOS 3.1 Diskette incl. Manual, X/A 

MS-DOS-+GW-Basic 3.2 sowie 4 dt. orig. Microsoft Hb. (Aufpreis in 
Verbindung mit Systemkauf), X/A 
8087-Arithmetik-Prozessor, 5 MHz, X =327,-— 
LE TErT N 127298 


PC 10-I1 512 K-RAM, AGA-Karte, dt. Tast.+Laufw.+20 MB-Festplatte 
+Contr.+Monitor 3. 
AMIGA-Commodore, 512 K-RAM 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
M-board Il 48K, gesockelt, vollbest. + gepr. 

M-board II 64K, gesockelt, vollbest. + gepr. 

M-board Il 64K + Z80 CPU, gesockelt, vollbest. + gepr. 
M-board Ile 64K vollbestückt + gepr. 

Superstarkes Netzteil — kurzschlußfest 5A=115,— b.z.w. 7A= 
Entwicklungslochraster-Leerplatine durchkontaktiert 27, 
16K- -Speicher- Karte geprüft 18,95/ a 0 
APPLE orig. 16K-Language Karte gepr. fe] 
Z-80 CPU-Karte geprüft (CP/M Vol. I.+1l Manual dafür=69,--) 18,95/ 64,-— 
Controller DOS 3.3-Karte geprüft 1E:R-=T AK 
Auto-Controller DOS 3.2/3.3-Karte gepr. 2 

Erphi AFDC 2 Controller + Autopatch Softw.+Handbuch, gepr. 
Parallel-Drucker-Karte geprüft (Extra Kabel = 45,-—) 18, \ 
Par.-Drucker Karte-Grappler comp. gepr. (Extra Kabel=45,--) 27,--/169,—— 
öbit par. Int. + 64K-Buffer + Kabel gepr. (Grappler comp.) a 
Seriell-Interface-Karte V24 geprüft 

Super-Seriell-Interface Karte gepr. 34,--/169,-- 
APPLE-Original Super-Seriell-Interface gepr. 295,—— 
80-Zeichen/24-Zeilen-Karte geprüft AK: RA KR 
802/24Z-Karte + Softswitch-Schalter, gestochen scharf, gepr. 24,--/127,-— 
802/24Z-Softwitch Karte gepr. für lle 16 
802/242 +64K-Ram+Softsw.-Karte best.+gepr. f. Ile 

IEEE-488 Int. Karte gepr. (Extra Kabel=45,--) 
PAL-Modulator/Color-Karte+UHF Modulator, geprüft 

RGB-Color Karte gepr., (nur f. Il+) ER YA PB 
128K-Speicher-Leerkarte + Software + Manual CL Ru 
128K-Speicher-Karte + Software+Manual, geprüft 29,--/255,—— 
Mega Ramcard Il, 256 KB best. +Software+dt. Hb., (bis1MBaufr.) 498,-— 
Mega Ramcard Il, 1 MB best. +Software+dt. Hb., gepr. 878,-—- 
EPROM-Burner (2716/32/64) geprüft 24,--/109,-—- 
6522-VIA Karte geprüft 24,--/135,-— 
Clock Karte+Software-+Manual, geprüft 

Speech Karte+Software+Manual, geprüft 

Wild Karte+Software+Manual (nicht f. Ile), geprüft 
AD/DA-8Bit Karte+Software-+ Manual, Jg 
UHF/TV-Modulator universell 

[Bi Ele ek) ae an 
APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. 

APOLLO//(48K) + Disk II F + Contr. + 12”-Monitor 

APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. 

APOLLO// ASKF (48K) vollbest. + gepr. sep.Keyboard + Gr/KlI + 

15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 

Aufpreis f.o. Systeme von 48K zu 64K 

Aufpreis von 48K zu 64K+Z80 CPU 

Apollo Ile (64K) vollbest. und geprüft 

Apollo Ile (64K) +802/24Z-Karte gepr. 

Apollo Ile (128K)-+802/24Z-Karte geprüft 

Applie Ile (64K) +15er-Tastatur vollbestückt und geprüft 

Apollo Ile ASKF (64 K) vollbestückt und geprüft 

Apollo Ile (64K) +Disk II F+Contr.+12” Monitor 


APPLE Ile 128K+802/24Z Karte +Softw. 1.598, 
Disk-Drives voll APPLE 11,100%ig EN Eee 
Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 359,—— 
Disk//(Siemens) im Geh. + Kabel 298,— 
Disk//F-HS (High Speed 1/2 Höhe) im Gehäuse +Contr.+Kabel 379,—— 
Disk//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Track Ac.<2mS) 318,— 
Disk//F-HS-80 Track im Gehäuse + Kabel f. orig. Contr. geeignet 389,—— 
Disk//F-HS-80 w.o. + Contr. + DOS 3.3 + CP/M Patch-Softw. EI Rue 
Disk Il-2x80 Track 640KB f. Erphi Controller modifiziert, 0. Gehäuse 299,-— 
Erphi DuoDisk 1,2 MByte im Gehäuse + Erphi-AFDC 3-Contr., gepr. 898,—— 
APPLESOFT + Tutorial + Reference Manual engl. 75,-- 
APPLE-DOS 3.3 Manual engl. = 25,--/Handbuch dt. 

APPLE-Pascal Reference + Operating Manual engl. 

APPLE-Fortran Manual engl. 

CP/M-Softcard Vol. | + Il, Manual engl. 

Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 

Macintosh Umrüstung von 128K auf 512K 


EPSON FX 85F/T+, 8bit/parallel 160 Z/S. NLQ + IBM comp. 


189,— 
80287,A 869,-— 
Erf 


LEER/BESTÜCKT 
57,--/337,—— 
El RK CR 


18,95/ 59,-- 
29,--/269,—— 
27,50 





EPSON FX 105+, 8bit/parallel 15” sonst w.o. 1.397,-- 
EPSON LQ-800, 24 Nadel, 180 Z/Sec. NLQ+IBM comp. 1.488,-- 
EPSON LQ-1000, wie 800 breite Aust. 1.937,-- 
EPSON EX 800, 1.494,-- 


EPSON Traktoraufsatz für FX 80 + FX 85 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 
MX 80/82, FX/RX 80, FX 85 Spezialfarbband-Kassette 


BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Modell 


Wir führen verschiedene Monitore von Zenith, Phillips, NEC, COGA und 
Sanyo mit Video - TTL (IBM Komp.) oder Coloreingang. Sowie umfangreiche 
Computer-Literatur (über 500 versch. Titel) — Bitte Preisliste anfordern! — 


Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückpreis: 
Ey7u BASF el [air] DATA NEUTRAL 
MAGNE- 
TICS 


1X,SS/SD 2,79/ 2,59 
1D, SS/DD 2,89/ 2,69 2,88/ 2,78 4,27/ 3,97 -,980/-,936 -,885/-,835 
2D, DS/DD 3,49/ 3,29 3,88/ 3,68 5,87/ 5,47 1,180/-,996 1,085/-,895 
3,89/ 3,59 4,88/ 4,68 
4,39/ 4,19 4,68/ 4,38 7,87/ 7,67 
7,59 7,29 7,98/ 7,58 9,87/ 9,57 


1X,Hard 4,29/ 4,19 EN 


{&) P 

1X, SS/SD 4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 sind 

1D, SS/DD 4,79/ 4,59 8,58/ 8,28 ® 

2D, DS/DD 6,49/ 5,99 9,88/ 9,58 10,17/ 9,77 Sl 

1 ET) 4,49/ 4,39 6,68/ 6,48 a 

31a" 

Einseitig 4,69/ 4,49 5,88/ 5,58 7,67/ 7,17 

Zweiseitig 6,19/ 5,89 7,28/ 6,88 9,17/ 8,57 

54” Disketten-Archivbox für 10 Disks (1 St./10 St.) 

54" Disk-Karteikasten Kunststoff (ca. 80 Disk) 

5’ Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 45,95 

54” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 

2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf 45,-— 

4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 66,50 

4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 65,-- 
OSZILLOSCOPE HAMEG ab Lager 

Bei Vorauszahlung frei Empfangsstation unversichert in JEBı BRD, ausgenom- 

men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,- 

[071 1 Er ZS CE VOM RT [HE 18 h, Miu. Sa v. 10-14 h, la Sa v. 10-18 h. 

Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Te 

GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 

unsere eigene Service-Werkstatt. 

REPARATUREN an Apple + compatiblen Geräten + Zubehör führt unser 

Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 

Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 


R, electronic a 


4,75/43,50 
26,50 


Telex 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel (07 61) 276864 
Bauelemente - Bausatze - „P's 
Meßgerate - Zubehor - Fachliteratur 
Fachgeschäft fur Elektronik + Mikrocomputer 
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Luxus-Catalog 





in Kyan-Pascal 


Die Idee für diesen Include-Befehl ent- 
stand beim Testen der System Utilities der 
Firma Kyan Software. Diese Programm- 
sammlung enthielt einen größtenteils in 
Pascal geschriebenen, meiner Meinung 
nach speicherverschlingenden und äu- 
Berst langsamen Catalog-Befehl. Aus die- 
sem Grund, und auch weil bis jetzt noch 
kein ausführlicher Catalog-Befehl als In- 
clude-File für Kyan-Pascal veröffentlicht 
worden ist, möchte ich Ihnen nachfolgend 
einen effizient arbeitenden, größtenteils in 
Assembler geschriebenen Catalog-Befehl 
vorstellen. 


Der Catalog-Befehl (s. Include-Datei-Li- 
sting CAT.I) beherrscht exakt die gleichen 
zwei Ausgabeformate wie das BASIC. 
SYSTEM, d.h. es werden Zeilen von 40 
oder 80 Zeichen Breite mit detaillierten 
File-Informationen vollgepackt. Der Cata- 
log-Befehl wird dann mit 

errcode := cat (pathname, format, 
files); 

aufgerufen. 

Die Funktion cat liest ein beliebiges (Sub-) 
Directory in den Speicherbereich der Hi- 
res-Seite ] ein und gibt danach bis zu 181 
File-Einträge im gewünschten Ausgabe- 
format auf dem Bildschirm aus. Ein mögli- 
cher MLI-Fehler wird der Variablen err- 
code zugewiesen (0 = kein Fehler). 


Zu Beginn Ihres eigenen Pascal-Haupt- 
programms müssen die Variablen definiert 
werden, die in dem Demo-Programm 
CAT.P durch gestrichelte Trennlinien ab- 
gegrenzt worden sind. Darüber hinaus 
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muß Ihr Programm mit „useshires” einge- 
leitet werden. 

Das Demo-Programm CAT.P kann als 
praktisches Beispiel dafür dienen, wie man 
den neuen Catalog-Befehl in eigene An- 
wendungen integrieren kann. Der eigentli- 
che Befehl ist bis auf die dezimale Bild- 
schirmdarstellung in reinem Assembler 
geschrieben und vollständig dokumentiert, 
so daß die genauere Programmbeschrei- 
bung dem Listing zu entnehmen ist. 


Dieser komfortable Catalog-Beiehl eignet 
sich auch gut als Ergänzung zu bereits 
vorhandenen Kyan-Utilities, wie z.B. der 
ProDOS-Runtime-Library FID (Kyan-OClub- 
Disk #A; vgl. auch Peeker, Heft 7/86, S. 
A0ff.) oder den erwähnten System Utilities 
der Firma Kyan Software. 


Kurzhinweise 


1. Zweck: 

Catalog-Befehl für Kyan-Pascal 

2. Konfiguration: 

Apple II+/e/c; ProDOS; Kyan-Pascal ab 
Version 2.0 

3. Test: 

CAT über Kix-Menü (%) starten 

4. Sammeldisk: 

CAT.I (Include-File) 

CAT.P (Demo) 

5. Sonstiges: 

Die Dateien CAT.| und GAT.P müssen zu- 
nächst mit CONVERT oder DOSTOPRO 
von der DOS-3.3-Sammeldisk auf Ihre 
Kyan-Arbeitsdisk konvertiert werden. 


Kyan-Club 


Wenn Sie Kyan-Pascal 2.0 über den Hüthig 
Software Service zum Sonderpreis von DM 
170,— bestellt haben, werden Sie automa- 
tisch Mitglied in unserem inoffiziellen Kyan- 
Club: 


1. Als passives oder aktives Mitglied kön- 
nen Sie bei Bedarf Kyan-Utilities (Program- 
mierer-Toolkit. Maus-Paket, Grafikpaket usw.) 
zu Club-Sonderpreisen, die deutlich unter 
den normalen Ladenpreisen liegen, erwer- | 
ben. 


2, Als aktives Mitglied erhalten Sie kosten- 
los eine Liste aller kontaktsuchenden Club- 
Mitglieder sowie gelegentliche Rundschrei- 
ben mit Club-Nachrichten. Wegen des BDSG 
(Bundesdatenschutzgesetzes;) ist hierzu je- 
doch Ihre schriftliche Zustimmung erforder- 


| lich. Es genügt eine Postkarte mit Privatan- 


schrift und Telefonnummer sowie dem Ver- 
merk „Club-Liste ja“. 


Inzwischen gibt es bereits etwa 800 Club- | 
Teilnehmer. Mit dem Kyan-Club-Rund- 
schreiben Nr. 3 vom 15.10.86 wurde den | 
aktiven Club-Teilnehmern die aktualisierte 
Mitglieds- und Adreßliste zugesandt. 


Hüthig Software Service 


| Postfach 102869 - 6900 Heidelberg 
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CAT.P stx _t ;Register von Pascal retten. 
ldy #13 ;Zeigt auf das gewählte 
lda (_sp),y -Catalog-Format (S oder L), 


+a and #$5f ;Format als Großbuchstabe 
—_useshires sta format ;zwischenspeichern. 
+ R 
program catalog[input, output); ıiny ;Y zeigt auf den Pfadnamen., 
a ee er } pathle Ida (-_sp),y ‚Länge des Pfadnamens 
type cmp #32 ;berechnen, 
pathstring = array [1..65] of char; beq lfound 
filestring = array [1l..16] of char; iny 
var bne pathle 
format: char; ’ 
pathname: pathstring; lfound tya 
filename: filestring; sec 
files,index, vsize, fsize,errcode: integer; sbc #14 ‚Länge des Pfadnamens vor 
#i cat.i ldy #13 ‚erstem String-Byte ablegen. 
een on. De Deere . a re} sta (_sp),y 
begin ’ 
repeat tya 
+a clc 
stx _t adc _5p ‚Adresse des Pfadnamens mit 
jisr $fc58 ;home sta pname ;Längenbyte berechnen und für 
ldx _t lda _sptl ‚den ProDOS-Open-Call ablegen, 
+ adc #9 
writeln{ 'CATALOG-PROGRAMM FUER KYAN-PASCAL V2,92'); sta pnametl 
writeln; | i 
writeln('VON MATTHIAS MEYER (JULI 1986) '); jsr $bfßd ;Erst einmal vorsichtshalber 
writeln: db $cc ‚alle offenen Dateien schlie- 
writeln; dw closeall ;Ben. 
writeln('"CATALOG-FOÜRMATE: 5 = AB Z/Z, L= 88 2/2); bos direrr 
writel ME ee | : 
writeln; jsr $b£fßd ;‚das durch den Pfadnamen be- 
readln(format) db $c8 ‚schriebene (Sub-)Directory 
uüntıl format in] .s'.„vs'.L% 272] dw opendir ;wird geöffnet. 
writeln; bcs direrr 
write('BITTE PFADNAME EINGEBEN: '); . 
readln(pathname); jsr $brß® ;Das Directory wird jetzt in 
writeln; db $ca ‚den dafür vorgesehenen Puf- 
write (' NAME TYPE BLOCKS MODIFIED'); dw readdir ;ferbereich eingelesen. 
if format in ['L','1'] then bes direrr 
writeln(' CREATED ENDFILE SUBTYPE') ’ 
else writeln:; jisr $bfßß ;‚Anschießend wird die Direc- 
writeln; db $cc ;:tory-Datei wieder geschlos- 
errcode:=cat/(pathname, format, files); dw closeall ‚sen; 
if errcode>® then bcec noderr 
prtnmlierror(errcode) . 
else begin direrr ldy #9 ;Y zeigt auf Funktionswert.l 
index:=]; sta (-sp),y ;Ein aufgetretener ProDOS- 
repeat jmp exitloop :Fehler wird hier vermerkt, 
filename[findex]:=pathnane[index]; ; 
index:=index+l noderr equ # 
until pathnamelindex] in [' ','/']; lda #$99 ;Startwerte für Catalog-Aus- 
filenamelindex]:='" '; sta flag ‚wertung werden hier initia- 
errcode:=volumesize(filename, vsize, fsize); sta files iisiert_ 
writeln; lda #>subdir 
if errcode>ß then sta blocki ;Index auf aktuellen (Sub-) 
prtmlierror(errcode) lda #<subdir ‚Directory-Block. 
else begin sta blocki+l 
write I"BLOCKS USED: T,fsize:;5s,' BLOCKS FREE: ', : 
vsize-fsize:5); loopl lda blocki+l ;Index auf aktuellen Block.h 
ir tornat ın LY,21%] chen cup #<$40d09 ;Ende des Directory-Puffers? 
writeln{' TOTAL BLOCKS: ',vsize:5,' TOTAL FILES: ', bne goon® ;Hoffentlich nicht! 
files:3) jnp exitloop 
else writeln gOond ldy #2 
end lda (blocki),y ;Ist dies hier der letzte 
end bne goon ;Directory-Block (keine Vor- 
end. iny ;wärts-Referenz)? 
lda (blocki),y 
bne goon 
dec flag ‚Ja, hier vermerken 
goon Ida blocki+l 
cmnp *#<subdir ;War das der Key-Block? 
CAT. bne nokey 
lda #+$2b :Ja, l. Eintrag überspringen. 
function cat{p:pathstring; f:char;var files:integer):integer; bne 1oop2 ;Verzweige immer, 
var msb,dec:integer; nokey Ida #4 ‚Nein, kein Key-Block. 
begin : 
cat:=ß; {Funktionswert von 'cat' = Fehlernummer von ProDOS} loop2 tay ;Y zeigt auf den Start eines 


Fa lda {blocki),y ;File-Eintrags. 

bne display ;Wenn A<>ß, dann File aktiv, 
‚Index auf Block im Puffer Jmp nodispl ‚sonst gelöscht. 

:Index auf Catalog-Einträge display and #$0f ‚Länge des Eintrags im Akku. 


blocki equu _t+l 
printi equ _t+3 


flag edu _t+b :Markierung für CGatalog-Ende sta namelen ;Länge um eins erhöhen und 
namelen equ _t+6 ;Länge des Catalog-Bintrags ins näanelen ‚vorerst zwischenspeichern. 
files squ irrt ‚Zähler für Anzahl Einträge r 

buffer equ $2999 ;Start des 1K Open-Puffers tya 

subdir equ $2489 ‚Start des Directory-Puffers pha ;‚Y-Zeiger auf Stapel retten. 
prbyte equ $fdda ;Ausgabe einer Sedezimalzahl clc 

i adc blocki ;Y-Index zum Blockindex hin- 
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sta printi :zuaddieren und als Print- 
ida blocki+l :index abspeichern. 
ade #08 


sta printi+tl 


; Schreibschutz anzeigen: 


F 


| ldy #$le ‚Zeiger auf Access-Bintrag 
| lda (printi),y ;Access-Eintrag überprüfen. 
and #$02 ;File ist schreibgeschützt? 
beq protect Ja, * anzeigen 
ida #329 ‘Nein, also nur Leerzeichen. 
jnp loop2a 
protect Ida #$2a gt 
loop2a jsr outdo ‚Standard-ASCII-Ausgabe 


; Filename anzeigen: 


lday #1 ‚Zeiger auf Filename 
100p3 lda (printi),y :;Zeichen aus String holen. 
cpy namelen ;Ende des Namens erreicht? 
bec outdoß ‚Nein, noch nicht. 
space lda #929 ;‚Ja, nur noch Leerzeichen. 
outdoß jsr outdo ;Standard-ASCII-Ausgabe 
iny 
cpy #$11 ;Länge von NametLeerzeichen 
bne 1loopä 


; Filetype anzeigen: 


dey ;Zeiger auf Filetype 
lda (printi),y ;Akku enthält den Filetype. 
ldx types ‚Anzahl bekannter Typen -1 
loop4 cmp typeno,xX ;Teste, ob Typ bekannt ist. 
beq tmatch ;Ja, stimmt überein. 
dex 
bpl 1loop4 
pha ;Nein, stimmt nicht überein. 
lda #$24 up: 
jsr outdo ‚Standard-ASCII-Ausgabe 
pla :Unbekannte Filstype-Numner 
jsr prbyte ‚als Sedezimalzahl ausgeben. 
jnmp loop4a 
tmatch ixa ;Index auf Typ zum Akku und 
sta typndx ;zwischenspeichern. 
asl ;Mit zwei multiplizieren und 
ee ;‚den ursprünglichen Wert 
adc typndx ‚adddieren, 
tax ;Ergebnis im X-Register. 
lda typetx,x :Nun die durch X indizierte, 
jsr outdo :zu dem bekannten Filetype 
lda typetx+1l,x ;gehörende Kurzbezeichnung 
jsr outdo ‚ausgeben. 


lda typetx+2,x 
jsr outdo 


loop4a ldx #3 


loop4b Ida +#$29 ;Vier Leerzeichen ausgeben. 
jsr outdo 
dex 
bne loop4b 


i 
F 


Block Used anzeigen: 


ldy #914 :Zeiger auf Blocks Used 

lda (printi),y ;höherwertigen Teil vom Wert 
pha ‚auf Stapel zwischenspeichern 
dey 

lda (printi),y ;niederwertigen Teil direkt 
ldy #5 ;in die Pascal-Integer- 

sta (_sp},Yy ;Variable DEC kopieren. 

iny 

pla ;Wert vom Stapel ebenfalls 
sta (_sp).,Y ;in diese Variable kopieren. 
jsr savezero ‚Zeiger retten und X laden 


+ 
write(dec:5); {Integer-Variable als Dezimalzahl ausgeben} 
+a 


jsr loadzero :X retten und Zeiger laden. 
| Ida #29 ‚Zwei Leerzeichen ausgeben. 

jsr outdo 

lda +#$29 Zi ı 


jsr outdo 
Last Modifloation anzeigen: 
ldx #3 


ldy +$24 ‚Zeiger auf Last Mod. 
modifd Ida (printi),y ;Last Modification date/time 
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contin 


sta 
dey 
dex 
bpl 
jsr 
lda 
cmp 
beq 
Jmnp 
Ida 
jsr 
lda 
Jst 


date,x ‚nach GetDate kopieren. 
modifd 

getdate ;Datum und Uhrzeit ausgeben. 
format ‚Überprüfung Ausgabeformat: 
+$4c ;='L'ong format? 

contin ‚Ja, Ausgabe fortsetzen. 
endline ;Nein, Ausgabe fertig. 

+$20 :Zwei Leerzeichen ausgeben, | 
outdo 

+520 a! 1 

cutdo 


; Creation date+time anzeigen: 


creatd 


End Of 


ab 


ldx 
ldy 
lda 
sta 
dey 
dex 
bpl 
jsr 
lda 
jsr 
lda 
jsr 


File 


ldy 
lda 
pha 
dey 
lda 
pha 
dey 
lda 
ldy 
sta 
ıny 
pla 
asl 
php 
lsr 
plp 
sta 
iny 
pla 
rol 
sta 
iny 
lda 
sta 
3sr 


+3 

+$1b ‚Zeiger auf Creation 
(printi),y ;Creation date/time 

date,XxX ‚nach GetDate kopieren. 
creatd 

getdate ;Datum und Uhrzeit ausgeben. 
+$29 ;Zwei Leerzeichen ausgeben, 
outdo 

+$20 =! 

outdo 

anzeigen: 

#$17 ‚Zeiger auf End Of File 


(printi),y ;Die höherwertigen Bytes auf 
;dem Stapel zwischenspeich. 


(Brinti)y 


(printi),y ;Das niederwertigste Byte 
#5 ;von EOF in das Low Byte 
(-_Sp).y ;der Variablen DEC kopieren. 


‚Aus dem mittleren Byte von 

‚EOF wird Bit 7 herausgenonm- 

;men und im Carry-Flag 

‚zwischengespeichert. 

‚Das mittlere Byte wird dann 
{_sp),y ;zum High Byte von DEC. 

;Das höchstwertige Byte von 

;EOF wird mit Bit 7 von vor- 

;her nach links rotiert und 


(-sp),y ;danach ins Low Byte der 

;Variablen MSB kopiert, 
+ß ;Schließlich wird das High | 
(=8P]) 3 ‚Byte von MSB initialisiert. | 
savezero ‚Zeiger retten und X laden. 


write (32768eß#msb+tdec:7:ß); (Ausgabe als Dezimalzahl} 


+4 


F 


Jsr 
lda 
jsr 
lda 
jst 


loadzero ;:X retten und Zeiger laden. 
+508 ‚Letztes Zeichen war ein 
outdo ;Dezimalpunkt, Mit Leerzeichen 
+$2PB ;überschreiben 

outdo 


; Auxiliary Type anzeigen: 


tsttxt 


notext 
prtequ 


ldy 
1da 
tax 
cmp 
bne 
Jnp 
cmp 
bne 
lda 
bne 
lda 
jsr 
lda 
jSsrt 
cpxX 
beq 
1da 
jsr 
ldy 
lda 
jsr 
ldy 


+$1® ;Zeiger auf Filetype 
(printi),y ;Akku enthält den Filetype. 
:Filetype in X zwischenspeichern 


+hÖf :Ist es ein DIR-File? 

tsttxt ;:Nein, weitertesten., 

endline ;DIR hat keinen Aux,Type. 
+94 ‚Ist es ein TÄXT-File? 

notext ‚Nein, ein normaler Aux.Type 
#552 ;='"R': Bei TXT-Files ist der 
prtequ ;‚Aux, Type die 'R'ecord-Länge 
+$41 ;='A': Sonst einfach nur ein 
outda ‚gewöhnlicher 'A'ux.Type. 
+$34 =!=! j 

outdo ;Standard-ASCII-Ausgabe 

#504 ;War es ein TXT-File? 
decimal :Ja, also dezimale Ausgabe. 
#524 erg! 

outdo ;Standard-ASCII-Ausgabe 

#520 ‚Zeiger auf Aux.Type high 
{printi),y ;High Byte von Aux.Type in A 
prbyte ‚Akku sedezimal ausgeben. 
+$1lf ;Zeiger auf Aux.Type low 
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Die umfassende Marktübersicht für Hobby- 
Elektroniker und Computeranwender, 
klar gegliedert: 


10. Ausstellung fur Funk- und Hobby-Elektronik In Halle 5 das Angebot für CB- und 
Amateurfunker, Videospieler, DX-er, Radio-, 
Tonband-, Video- und TV-Amateure, für 
Elektro-Akustik-Bastler und Elektroniker. 


O 
B 0 M II: N Mit dem Actions-Center und Laborversuchen, 
Experimenten, Demonstrationen und vielen 
3. Ausstellung Tips 
für Computer, ; 
Software In Halle 6 das Superangebot für Computer- 
und Zubehör anwender in Hobby, Beruf und Ausbildung. 


Dazu die „Computer-Straße” ktions- 
Dortmund azu puter-Straße” als Aktions 


bereich, der Wettbewerb „Jugend program- 
18.-22.Februar1987 mier” und die Stände der Computerclubs. 














SDO KB RAM-Kane 
fü APPLE 2; 2+; 2e 
- Dos 3.3 
- CD/M 2.20; 2.23 
- Darcal 1.1; 1.2; 1.3 
Disk erchachsz 
mil 256 KB bertüchd DM 298.- 
Ato. mi1 ADDLEWORKS-Datch DM 342.- 
Iait 512 KB lertäcdd DM 392.- 
Ato. mit ADDLEWORKS-Patck DM U38.- 
move; Molwinkel und Venen GuÄH: 
Barliner St. 73, SOIO Lverlanen 1 
Telefon: 0214/ 4 50 60-437 9 


Wahlweise als eigenständige Rechnerplatine oder als Adapter - 
karie für den IBM PC/XT einsetzbar. 

655C02-Prozessor, 80 KB RAM, 1 Slot(5Opolig), eigenes Boot-ROM, 
Floppy - Ansteuerung (erphi ) für 35,2% 40 und 2x 60 Tracks 
Bildschirm, Tastatur , serielle/paraällele Schnittstelle sowie die 
internen Laufwerke werden von beiden Rechnern benutzt 
Weitere Anwendungen: 2.B. CP/M durch zusätzliche ?780-Karte, 
a henlou00 parallel zum IBM, SULOSTRONSTER Apple/tBN,etc. 


DEDERIC En 
COMPUTER "E 


Buro fur Hardware- und Software-Entwicklung 
Dipi.-Math. W. Dederichs, Hackstückstraße 11 
4320 Hattingen-Bredenscheid,Tel.02324/52240 





APPLE & GP/M-80 & MS-DOS 
SOFTWARE & HARDWARE 


z. 8, für APPLE It und Kompatible 
Wir liefern die RAM-Karte (AE) für den Apple Ile mit max. 3 MB 


- m (Appleworks mit mehr als 2MBJ! 64-K-Ausf. .. 2.2.2.2... DM 650.- 
GESCHÄFTSWELT - WISSENSCHAFT - (AUS)BILDUNG arena 59 za Ju er) a nn 
ST ATI ST| K Angina der DI anET Un IM in deutsch 
ür und IBSAP331MBI .. 2... vv 22 22... M 170.- 
UPG-Programmer-Card 2716-128 komiortabel 4. DM 380.- 
TWw A R E 72 \/0 Port Card programmierbar DOS+CP/M . . ......... DM 280.- 
SOF \| StatSoft" ee n- 
Software für Datenanalysen von EN a oO CPM- -Plus-Card, 6 MHz, 64K, CP/M3.0(ALS) . .......... DM1150.- 
" ioti i imemaster IIH. 0O., die Uhrenkarte! KEN re eg DM 540.- 
(Das führende Statistik Software Haus in den USA) ELF kompl. Statistik-Software (TWG) <= DM 500.- 
Konkurrenziose Leistung und Flexibilität zu Prime-Piotter-Grafik-Software {Primesoft) . . 22-222... DM 900.- 
konkurrenzlosen Preisen! Z-BAMSTZIKHUEARPREIICHAEN EN 2 ee DM 1250. — 
ATISTIK-Proar. akete für PC's un : 2. B. für IBM und Kompatible 

Umfassende STATIS 09 emmp ür PC's und Homecomputer APPLE Turnover (Vertex) Lesen/Schreiben von Apple Disks 
APP-STAT für APPLE I| Computer Eon sa ns, 
APPLE BASI = CP/M & MS-DOS Formate im IBM ......... +0. DM 450. 
( SOFT SIC) DM 59, ELF PC kompl. Statistik Software (TWG) . 2.2... DM 500.- 
STATFAST für Macintosh DM 31 9,— PROM Blaster 28-Pin (Apparat Inc.) ...........2..-- DM 620.- 

i & 2. B. für alle Systeme 
Unsere benutzerfreundlichen, menügesteuerten Programmpakete enthalten Printerchanger 3 parall, Drucker auf 1 Micro 

sowohl grundlegende statistische Analyseverfahren (Deskriptive Statistik, T-Testes, a a ne rer 
Korrelationen, Nicht-parametrische Verfahren, u.v,m.), als auch höhere multivariate inkt. Kabel/Netzteil (Keyzone) ......-.2....22....: DM 460.- 
Methoden (multiple Regression, mehrfaktorielle Varianz- und Kovarianzanalysen SNUNIEDUNER BAR (IS ee ee an: DM 1250.- 


und mehr). Verarbeitung von Datenbeständen anderer Programme ist möglich. 
— Zu beziehen per Nachnahme oder Vorkasse (+ DM 5,- Versandkosten) bei: 


LOLL+NIELSEN, Software-Vertrieb 
Hoheluftchaussee 83, 2000 Hamburg 20, Tel. 040/420 03 47 





-oite ih nich! 
DruC uch ne 





@ IBM (R) -kompatibel sein? 
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Achtung: EPSON FX-80 Besitzer 


@ Schönschrift (NLA) beherrschen? 
® Maclntosh & Mousepaint -Grafiken drucken? 


Wir bringen'‘s ihm bei! 


Wir sind Import-Spezialisten und bieten Ihnen eine große Auswahl an Software 
und Hardware bedeutender Hersteller aus den USA und England. 
Informationen gegen DM 3,- in Briefmarken 


WEISS COMPUTER Dipl.-Psych. Karl-Heinz Weiß 


Am Wiesenhof 17, 2940 Wilhelmshaven, Tel. 0 44 21/8 31 79 





PCs: APPLE De/c (R) kombatibei 
IBM PC/XT & AT (R) -komp. 
Zubehör / Komplettlösungen 

m ö‚Üü‚‚‚‚öw uw nn nu 


INFO: DM 3,— in Briefmarken ! 
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Ida. (printi),y ;:9, u 
jsr prbyte 
Jap endline ;Ausgabezeile beenden. 
decimal 1ldy #$29 ;Zeiger auf Aux.Type high | 
lda (printi),y ;höherwertigen Teil vom Wert | : 
pha ‚auf Stapel zwischenspeich. ketdate 
dey 
lda (printi),y ;niederwertigen Teil direkt 
ldy #5 ‚in die Pascal-Integer-Vari- . 
sta (_sp),y ‚able DEC kopieren, 
iny 
pla ;Wert vom Stapel ebenfalls 
sta (_sp),y ‚in diese Variable kopieren. „ 
jsr säavezero ‚Zeiger retten und X laden, dateok 
E 
write(dec:5); {Integer-Variable als Dezimalzahl ausgeben) 
+a 
jsr loadzero ;X retten und Zeiger laden, 
endline lda #$9d ;‚Carriage Return ‘ 
jsr outdo ‚ausgeben, 
pla ;Y zeigt auf den Start eines 
tay ‚File-Bintrags, 
inc files ;‚Erhöhe Anzahl der Einträge. 
nodispl tya ‚Einsprung für unsichtbare, 
clc ‚d.h. gelöschte Einträge. 
adc #827 ‚Offset für nächsten Eintrag 
bcos nodisl ‚addieren. dats4 
jmp loop2 ‚Nächsten Eintrag anzeigen, 
nodisl pha ‚Low Byte retten. 
inc blocki+l ;Blockanfang wegen Referenz- 
Ida blocki+l ‚Header gesondert behandeln: 
lsr . :ist das High Byte ohne Rest 
pla ‚durch zwei teilbar, so be- 
bcc skip2 ;ginnt ein neuer Block, von | 
jnp loop2 ‚dem die ersten vier Bytes 
skip2 bit flag ;zu übergehen sind. Das Flag | 
bmi exitlp :ist negativ, wenn das Ende 
jmp loopl ‚des Directory erreicht ist. 
exitlp jmp exitloop 
types db $#9 ‚Anzahl Tabellenelemente - 1 
typeno db $94,$06,$0f,$19,$1a,$1b,$fc,$fd,$fe,$frf 
typetx asc 'TXT' ‚ASCII text file 
asc "BIN! ;General binary file 
asc 'DIR' ‚Directory file 
asc "ADB' ‚Data base file 
asc "AWP" ‚Word processor file 
asc 'ASP' ‚Spreadsheet file 
asc 'BAS' ‚Applesoft program file 
asc 'VAR' ‚Applesoft variables file 
asc 'REL' ;‚Relocatable code file 
asc 'SYS' ;ProD0OS system file 
typndx ds 1 
savezero lIdx #7 ;Zero-Page-Bereich $16-$17 
savezd lea m=U,R ‚nach tmpzero speichern. dates 
sta tmpzero,x 
dex 
bpl savezd 
lear  t ;Pascal-X-Register laden. dates 
rtE 
loadzero stx _t ;Pascal-X-Register retten. 
ldx #7 ;Zero-Page-Bereich $11-$17 
loadzß lda tmpzero,x ;aus tmpzero zurückladen 
sta ix date7 
dex date8 
bne loadzf 
rts dezout 
tmpzero ds 8 ;‚Zero-Page-Zwischenspeicher. 
format as 1 ;short/long Format 
closeall db 1 ‚ProDOS-MLI-Aufruf: | + 
db $B9 ‚alle Dateien schließen, 
‚ +a 
opendir db 3 ;ProDOS-MLI-Aufruf: 
pnane dw $Addd :(Sub-) Directory öffnen. 
dw buffer nodate 
db $91 txtout 
readdir db 4 ;ProDOS-MLI-Aufruf: 
db $61 ;(Sub-) Directory lesen. 
dw subdir 
dw $1CQß txtend 


dw HARBH 


lda 
lsr 
sta 


lda 
bne 


Jap 


ror 
lsr 
lsr 
lsr 
lsr 
sta 


lda 
and 
camp 
bcs 
pha 
lda 
Jst 
pla 
jsr 
lda 
jsr 
ida 
asl 
adc 
tax 
lda 
jsr 
lda 
jsr 
lda 
Jst 
lda 
jsr 
lda 
jsr 
lda 
cmp 
bne 
lda 
jsr 
lda 
cap 
bcs 
pha 
lda 
jsr 
pla 
jsr 
lda 
jsr 
lda 
cap 
bcs 
pha 
lda 
jsr 
pla 
Jmp 
Tts; 


ldy 
sta 
iny 
lda 
sta 
jsr 


Jap 


ldx 
ida 
beq 
jsr 
IX 
bne 
lda 


: GetDate-Unterprogramm: Es übernimmt Datum und Uhrzeit 
; von ProD0S in der komprimierten Form und gibt es dann 
; im üblichen Format auf dem Bildschirn aus, 


date+l 

‚Jahr herausfiltern 
year 
date ‚Byte mit Monat und Tag 
dateok ;:Wenn >®, dann Datum OK. 
nodate ;Kein Datum gesetzt. 

;Mit Bit ®Ö von date+l rotie- 

;ren und Tag wegschieben, 

;Hier werden die Daten des 

:Monats zur richtigen Posi- 

;tion gebracht. 
month 
date ;Byte mit Monat und Tag 
#$1f ;Tag herausfiltern 
+19 ‚Ist der Tag im Dezimal- 
date4 ;system zweistellig? 

;Nein, erst einmal retten 
+520 ‚und ein Leerzeichen ausge- 
outdo ;ben. 
dezout ;Tag dezimal ausgeben 
#524 lat 
outdo ‚Standard-ASCII-Ausgabe 
month ;Byte mit Monat als Textzei- 

;ger verwenden, also erst 
month ‚einmal Monat mit drei mul- 


;tiplizieren und dann einen 


months-3,x :Text mit drei Buchstaben 


outdo ‚ausgeben, 

months-2,xX 

outdo 

months-1l,x 

outdo 

+$24 iu! 

outdo ‚Standard-ASCII-Ausgabe 

year ‚Ausgabe der Jahresangabe in 
date6 ;dezimal mit führender Null. 
format ‚Sollte die Datum-Ausgabe im 
#$4c ;='L'ong Format erfolgen? 
date8 ;‚Nein, das war's. 

#520 ;Leerzeichen ausgeben. 

outdo 

time+l ‚Byte mit Stunde 

#18 ‚Ist die Stunde im Dezimal- 
date5 ‚system zweistellig? 

‚Nein, erst einmal retten 
+$20 ;und ein Leerzeichen aus- 
outdo ‚geben. 
dezout ‚Stunde dezimal ausgeben. 
+$3a FF 
outdo ;‚Standard-ASCII-Ausgabe 
time ‚Byte mit Minute 
#19 ;Ist die Minute im Dezimal- 
date? ‚system zweistellig? 

;Nein, erst einmal retten 
+$3d ='d' 
outdo ‚Standard-ASCII-Ausgabe 
dezout ;Minute dezimal ausgeben. 

#5 ;Dezimal auszugebender Wert 
(-sp),y ;liegt im Akku vor und wird 

‚in das Low Byte von DEC ko- 
+0 ;piert. Nachfolgend wird das 
(-sp).y ‚High Byte auf Null gesetzt, 
savezero ‚Zeiger retten und X laden. 


write(dec); {Integer-Variable als Dezimalzahl ausgeben} 


loadzero ;X retten und Zeiger laden. 


Bd 
tnodate,x 
txtend 
outdo 


;Text: "Kein Datum" ausgeben 


txtout 


format ‚Sollte die Datum-Ausgabe im 
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cmp #$4c 
bne date9 
ldx #6 
date8a lda #$2$ 
jsr outdo 
| dex 
| bne date8a 
date9 rts 


Mte aw $6009 
time dw $o09R 
month db $B8 


year db $08 


;='L'ong Format erfolgen? 
‚Nein, das war's, 

‚Ja, deshalb gleich anschie- 
;‚Bend sechs Leerstellen aus- 
‚geben. 


;Hier wird Datum und Uhrzeit 

‚im ProDOS-Format übergeben. 

;Zwischenspeicher für Monat, 
u " Jahr. 


months asG "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 


tnodate asc !<NO DATE>'! 
db’ $BB 


eutdo ora #$89 
jJmnp cout 


exitloop clc 


lIdy #11 
Ida, („sp),Yy 
Star hl 
iny 
Ida (-=p),y 
sta _t+2 
lady #9 
lda files 
sta (-t+tl),y 
iny 
lda #9 
sta (_-t+tl},y 
las =T 

# 

end; 


function volumesize 


‚Standard-ASCII-Ausgabe 


‚Die Anzahl der ausgegebenen 
;‚File-Einträge wird nachfol- 
‚gend in die Pascal-Integer- 
‚Variable FILES übertragen. 


(filename: filestring; var vsize, fsize:integer):!integer; 


;‚i-Register-Inhalt retten. 
;Y zeigt auf den Anfang des 
;‚Volume-Namens, Der Volume- 
‚name wird in einen Puffer 
‚kopiert. Dabei wird gleich- 
‚zeitig dessen Länge mitge- 
‚zählt. 


| begin 
volumesize:=ß; {Errcode:=ß} 
+a 
sitz 
ldy #11 
flen lda (_sp),y 
cmnp #32 
beqg Ildone 
sta fname-1lß,y 
iny 
bne flen 


ldone tya 
sec 
sbce #11 
sta inane 


jsr $bfß® 
db $c4 

dw gefinfo 
lday #5 

sta (-sp),y 
ldy #7 

lda (-sp),y 
sta _t+l 
iny 

lda (-sp),y 
sta _t+2 
Iiny 

lda (_sp),y 
sta —_t+s 
iny 

Ida (25p).3 
sta _t+44 
ldy #9 

Ida blused 
sta (_t+l},y 
iny 


lda blused+l 

sta (_t+l),y 

ldy #9 

lda auxtyp 

sta (_t43),y 
| iny 

lda auxtyp+tl 

sta (_t#3),y 

jap endinfo 
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‚Die Länge des Volume-Namens 
‚wird hier abgespeichert, 


;ProDOS-MLI-Aufruf: 
‚Get File Info. 


‚Eine eventuell aufgetretene 
;Fehlernummer abspeichern. 


‚Die Adresse der Variablen 
‚fsize bestimmen und in _t+l 
‚und _t+2 ablegen. 


‚Die Adresse der Variablen 
‚vsize bestimmen und in _t+3 
‚und _t+4 ablegen 


;Den Wert von Blocks Used in 
‚die Variable fsize kopieren 


;‚Den Wert von Aux.Type, der 
;in diesem Fall die Gesamt- 
‚speicherkapazität der Disk 
‚angibt, in die Variable 
‚vsize kopieren. 


4 Kyan 94 


efinfo db $da 


;Get File Info: 1® Parmeter 


dw fname ‚Adresse des Volume-Nanmens 
db $PB ;Zugriffsbefugnis 
db $99 ;Filetype 


auxtyp dw $öddd 


;‚Auxiliary Type 


db $9% ‚Speichertyp 


blused dw $d084 
dw $0008 
dw $0000 
dw $önnp 
aw Sonnen 


fnane as Ir 
endinfo 1ldx _ 


# 
end; 


;Blocks used 
‚Modification date 


et time 


‚Creation date 


time 


‚Puffer für Volume-Name 


procedure prtmlierror (errcode:integer); 


begin 
write ('PRODOS-FEHLER $'); 
+a 


SER et ‚{-Register-Inhalt retten 
ldy #5 ;Y zeigt auf Fehler-Nummer 


lda (_sp),y 


;A enthält Fehler-Nummer 


jsr prbyte ‚Akku sedezimal ausgeben. 
1da +$8d ;Carriage Return ausgeben, 
Jjsr cout 
tax. Zt ;‚Ä-Register-Inhalt zurück 
=} 
end; 


DISK40 


Disketten-Organisationsprogramm für 
Apple Il+, Ile oder Ilc 


von Hermann Seibold 
und Dipl.-Ing. Udo Marin, 
1986, Programmdiskette 
mit Anleitung, DM 48,— 


DISK40 entstand aus der 
Analyse bestehender Ko- 
pierprogramme und vereint 
in sich eine Vielzahl von 
Möglichkeiten, die sich als 
nützlich erwiesen haben. 
Durch eine einfach zu be- 
dienende Menüführung 
können DOS-3.3-Disketten 
umfangreich bearbeitet 
oder kopiert werden. 

Zu den vielfältigen Möglich- 
keiten des Programms zäh- 
len u.a.: 


— Tabellarische Ausgabe 
der Diskettenbelegung 

— Ordnen des Catalogs 

— „Undelete“n von verse- 
hentlich gelöschten Dateien 


— Vergleichen von Disket- 
ten, Dateien oder der DOS- 
Spuren 


— Kopieren von Disketten, 
Dateien oder DOS-Spuren 


— Formatieren von Daten- 
Disketten 


— Erweitern auf 40 Spuren 
bei bestehenden 35-Spur- 
Disketten 


— Ändern des Boot-Pro- 
gramms 


— File-Editor zum Editieren 
von Diskeiten-Dateien 


— Komfortabler Sektor-Edi- 
tor für Hex- und ASCII-Dar- 
stellung 


— VTOC-Editor, z.B. zur 
Freigabe der DOS-Spuren 


Schon nach wenigen Minu- 
ten können, dank der aus- 
führlichen Beschreibung, 
Disketten nach eigenen 
Wünschen modifiziert oder 
Daten nach einem Disk- 
Crash wieder gerettet wer- 
den. 


Hüthig Software Service : Postfach 102869 - Heidelberg 1 














Ist „Sprache“ eine 
Metapher? 





Kritische Betrachtungen zum Begriff 
der Programmiersprache 


von Ulrich Stiehl 


Man-machine identity is achieved not by 
attributing human attributes to the machi- 
ne, but by attributing mechanical limita- 
tions to man (Mortimer Taube). 


1. Animismen und Metaphern 


„Mit der ersten Sprache erlernt man nicht 
nur ein Vokabular und eine Grammatik, 
sondern man erschließt sich eine Gedan- 
kenwelt.“ Würde man nicht wissen, daß 
dieser Satz in einem Informatik-Lehrbuch 
steht (N. Wirth, Systematisches Program- 
mieren, 5.Aufl., Stuttgart 1985, S.8), so 
müßte man meinen, daß von Deutsch oder 
Englisch und nicht von Algol oder Pascal 
die Rede ist. 

Etwas später lesen wir in bezug auf den 
Prozessor: „Im Zentrum steht der Begriff 
der Handlung. Eine Handlung sei ein Vor- 
gang, der in einer endlichen Zeitspanne 
abläuft und eine beabsichtigte und wohl- 
definierte Auswirkung — einen Effekt — 
hat“ (S. 13). Ferner heißt es, daß „die 
Maschine ein genau festgesetztes, endli- 
ches Befehlsrepertoire besitzt und die an- 
genommenen Befehlsfolgen mit absolu- 
tem Gehorsam und totaler Kritiklosigkeit 
ausführt.” 


Woher rührt die Selbstverständlichkeit, mit 
der Informatiker Assembler, BASIC und 
Pascal als „Sprachen“ bezeichnen? Und 
wie ist es möglich, daß Wissenschaftler 
den Computer für „handlungsfähig“ und 
„gehorsam“ erklären? Liegt dieser Termi- 
nologie nicht vielmehr eine längst über- 
wunden geglaubte animistische, also alles 
beseelende Denkweise zugrunde, wo- 
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nach Steine sprechen und Bäume handeln 
können? Wir pflegen herablassend zu lä- 
cheln, wenn ein von der Zivilisation bislang 
unberührter Ureinwohner vom Rundfunk- 
gerät als „dem Stein, der spricht” oder 
vom Roboter als „dem Gott aus Eisen" 
redet. Aber müssen wir uns nicht selbst 
belächeln, wenn wir ähnlich naiv in bezug 
auf Computer von „den die Gedankenwelt 
erschließenden Sprachen” oder von „ge- 
horsamen Sklaven“ reden? 


Im Alltagsleben begegnet man oft diesem 
anthropomorphisierenden (vermenschli- 
chenden) Verhalten: Wer hätte nicht schon 
einmal mit seinem Auto „gesprochen“, 
wenn es den „Gaspedal-Befehl“ nicht 
„gehorsam“ ausführte? Und so nimmt es 
uns deshalb nicht wunder, daß sich in die 
Computerterminologie einige Wörter ein- 
geschlichen haben, die eigentlich ganz an- 
dere Dinge bezeichnen. Ein Wort kann 
nämlich nicht nur eine wörtliche oder ei- 
gentliche, sondern auch eine uneigentli- 
che, übertragene oder metaphorische Be- 
deutung haben. Dabei sind Metaphern kei- 
neswegs nur eine Domäne der Poesie, die 
„in blumiger Sprache“ Gedanken und 
Empfindungen zum Ausdruck bringt. Viel- 
mehr ist man selbst in den exakten Wis- 
senschaften geneigt, zunächst Metaphern 
zu gebrauchen, wenn neuartige Phänome- 
ne beschrieben werden sollen, die durch 
das bisherige Vokabular nöch nicht abge- 
deckt werden. Die Bequemlichkeit darf je- 
doch nicht so weit gehen, daß man alles, 
was vier Beine hat und hinten wackelt, als 
„Wau-wau“ bezeichnet. 


Nachfolgend soll deshalb untersucht wer- 
den, ob und inwieweit der Begriff der 


Sprache in der Informatik seine Berechti- 
gung hat. 


2. Lexikalische Definition 


Wenn man das sechsbändige „Große 
Wörterbuch der deutschen Sprache” 
(Mannheim 1981) unter dem Begriff 
„Sprache“ aufschlägt, so findet man als 
Erklärungen 

(a) „das Sprechen”, 

das unter dem Stichwort „sprechen“ tau- 
tologisch auf die Sprache zurückweist, 
sowie 

(b) „Sprachsystem”, 

das unter dem Stichwort „Sprachsystem” 
als „System aus in gleicher Weise immer 
wieder vorkommenden und sich wieder- 
holenden sprachlichen Elementen...” defi- 
niert wird, wobei man unter dem Stichwort 
(c) „sprachlich“ 

die Erklärung „die Sprache betreffend” 
vorfindet, die prompt zu einem Circulus 
vitiosus führt: 

(d) „Sprache ist ein System aus die Spra- 
che betreffenden Elementen”. 


Ergänzend sei vermerkt, daß das deutsche 
Wort „Sprache“ etymologisch von „spre- 
chen“ (= Laute äußern) kommt, während 
das englische „language“ und das franzö- 
sische „langue“ vom lateinischen „lin- 
gua“ (= Zunge) herrühren. 


3. Linguistische Definition 


Linguisten sind sich keineswegs einig, 
wenn das Wesen der Sprache erklärt wer- 
den soll: 

E. Sapir: „Sprache ist eine ausschließlich 
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dem Menschen eigene, nicht im Instinkt 
wurzelnde Methode zur Übermittlung von 
Gedanken, Gefühlen und Wünschen mit- 
tels eines Systems von frei geschaffenen 
Symbolen“. Kommentar: Diese Definition 
beschränkt die Sprache auf den Men- 
schen. Danach haben Tiere und Maschi- 
nen, z.B. Computer, keine Sprache. 

B. Bloch: „Sprache ist ein System willkür- 
licher Lautsymbole, mit deren Hilfe eine 
soziale Gruppe gemeinsam handelt.“ 
Kommentar: Der Begriff „soziale Gruppe“ 
könnte sich auch auf eine Gruppe von 
nicht-menschlichen Lebewesen, z.B. eine 
Horde von Affen, jedoch in keinem Fall auf 
eine „Horde von Robotern“ beziehen. 
R.A. Hall: „Sprache ist eine Institution, mit 
deren Hilfe Menschen miteinander kom- 
munizieren und unter Verwendung ge- 
wohnnheitsmäßig benutzter, oral-auditiver, 
willkürlicher Symbole in Interaktion tre- 
ten.“ Kommentar: Auch hier wird der an- 
thropologische Aspekt unterstrichen. 

N. Chomsky: „Sprache ist eine endliche 
oder unendliche Menge von Sätzen, jeder 
endlich in seiner Länge und konstruiert 
aus einer endlichen Menge von Elemen- 
ten.” Kommentar: Dies ist eine jener Leer- 
definitionen, wie man sie heute so sehr 
schätzt. Der Wert der Erklärung hängt vom 
Begriff des Satzes ab, der als eine „endli- 
che Menge von Elementen” definiert wird, 
was indessen für alle realen „Mannigfaltig- 
Keiten” auf dieser unserer Erde zutrifft 
(vgl. G. Cantor, Über die elementare Frage 
der Mannigfaltigkeitslehre, 1890). 
Interessant sind die Oberbegriffe für Spra- 
che, nämlich Methode, System, Institution 
und Menge. Daneben finden wir in ande- 
ren Quellen als Oberbegriffe Informations- 
träger, Kommunikationsmitte, Medium 
u.a. 


4. Philosophische Definition 


Der Mensch als „vernunftbegabtes Tier“ 
(animal rationale) ist ein denkendes, füh- 
lendes und wollendes Wesen. Folglich las- 
sen sich rationale, emotionale und volitio- 
nale Bewußtseinsinhalte unterscheiden. 
Der Mensch ist darüber hinaus aber auch 
ein „geselliges Tier“ (animal sociale), das 
ein Bedürfnis verspürt, seinen Mitmen- 
schen rationale Gedanken und Erkennt- 
nisse, emotionale Gefühle und Empfin- 
dungen sowie volitionale Empfehlungen 
und Wünsche mitzuteilen, zu vermitteln 
oder verständlich zu machen. Die Verstän- 
digung von Mensch zu Mensch ist jedoch 
nicht direkt von Bewußtsein zu Bewußt- 
sein („von Hirn zu Hirn“ — Telepathie), 
sondern nur indirekt über die Sensomoto- 
rik möglich (sensorisch = sinnliche Wahr- 
nehmung betreffend; motorisch = mus- 
kelbetätigende Handlung betreffend). 
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Ein Mensch kann sich mit Hilfe von Ge- 
sichtsgebärden (Mimik = Gesichtsspra- 
che) oder Körpergebärden (Gestik = Kör- 
persprache) verständigen, doch lassen 
sich damit nur rudimentäre Botschaften 
vermitteln. Als erheblich flexibler hat sich 
statt dessen die Verständigung mit Hilfe 
von „Zunge“ (> lingua) und „Mund“ (— 
mündlich) erwiesen, da sich mit diesen 
„Sprechwerkzeugen“ etwa hundert ver- 
schiedene Laute erzeugen lassen, die zu 
praktisch beliebig vielen bedeutungtra- 
genden Gebilden kombiniert werden kön- 
nen. Diese bedeutungtragenden Lautge- 
bilde (Wörter usw.) sind indessen nicht 
willkürlich aus der Luft gegriffen worden, 
sondern quasi natürlich entstanden. Wir 
können deshalb definieren: 


Sprache im engeren Sinne ist ein 
menschliches, natürliches, indirektes, 
mündliches Verständigungsmittel zur 
Mitteilung von Bewußtseinsinhalten. 


5. Streichlösung 


Es ist evident, daß bei dieser restriktiven 
Definition weder Gebärdensprachen noch 
Programmiersprachen unter den Begriff 
der Sprache fallen würden. Wir werden 
deshalb im folgenden untersuchen müs- 
sen, welche Begriffsmerkmale eliminiert 
oder gestrichen werden können (Streich- 
lösung), damit gerade noch von Sprache 
geredet werden kann. 


5.1. Mündliche Verständigung 


Neben der mündlichen Verständigung 
(Sprecher/Hörer) gibt es auch die schriftli- 
che Verständigung (Schreiber/Leser) so- 
wie andere Formen der Kommunikation 
(Gestik, Mimik usw.), die sich aus der 
menschlichen Sensomotorik ergeben. Wir 
können deshalb das Begriffsmerkmal 
„mündlich“ fallenlassen und unter dem 
Begriff der Sprache auch die anderen Ver- 
ständigungsmittel subsumieren, die üb- 
licherweise als Sprachen bezeichnet wer- 
den, z.B. Schriftsprache, Gebärdenspra- 
che, Blindensprache usw. Da sich Pro- 
grammiersprachen der Schriftzeichen be- 
dienen, können sie insoweit als Sprachen 
bezeichnet werden. Unsere Definition lau- 
tet jetzt: „Sprache ist ein menschliches, 
natürliches, indirektes Verständigungsmit- 
tel zur Mitteilung von Bewußtseinsinhal- 
ten.“ Programmiersprachen werden durch 
diese Definition jedoch noch nicht abge- 
deckt. 


9.2. Indirekte Verständigung 


Da es eine direkte Verständigung von Be- 
wußtsein zu Bewußtsein mittels Telepathie 
(„Gedankenlesen“) offenbar nicht gibt, ist 
jede Kommunikation indirekt oder mittel- 
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bar, so daß wir den tautologischen Zusatz 
„indirekt“ streichen können. Trotzdem ist 
die Unterscheidung zwischen direkter und 
indirekter Verständigung Insofern relevant, 
als die Mittelbarkeit durch die modernen 
Kommunikationsmittel sehr komplexe For- 
men angenommen hat. Während die nor- 
male mündliche Sprache noch eine räum- 
liche Anwesenheit von Sprecher und Hö- 
rer voraussetzt, ist dies bei der Schrift- 
sprache, also z.B. beim Lesen von Bü- 
chern, bereits nicht mehr der Fall. Aber 
auch die mündliche Sprache kann mit Hilfe 
von technischen Einrichtungen „auf Di- 
stanz” gehen. So sind etwa beim Telefon- 
gespräch zwischen „Nachrichtenquelle“ 
(Sprecher) und „Nachrichtensenke“ (Hö- 
rer) der Sender (Codierer) und der Emp- 
fänger (Decodierer) zwischengeschaltet, 
die über den „Nachrichtenkanal“ den chif- 
frierten Bewußtseinsinhalt übertragen. 

Wir können festhalten, daß die Verwen- 
dung technischer Hilfsmittel, zu denen 
auch der Computer gehören kann, dem 
Begriff der Sprache keinen Abbruch tut. 
Wir sind damit bei folgender Definition an- 
gelangt: „Sprache ist ein menschliches, 
natürliches Verständigungsmittel zur Mit- 
teilung von Bewußtseinsinhalten.“ 


9.3. Natürliche Verständigung 


Unsere Kultursprachen sind, wie der Na- 
me sagt, keine Naturprodukte, sondern 
von Menschen geschaffene Verständi- 
gungsmittel. Trotzdem pflegen wir bei- 
spielsweise Deutsch als eine natürliche 
Sprache zu bezeichnen, weil sie historisch 
gewachsen und nicht durch willkürliche 
Konvention „am grünen Tisch“ entstan- 
den ist. Ein typischer Indikator für eine 
„ausgewachsene” Sprache ist die Tatsa- 
che, daß keine primären Wörter mehr ent- 
stehen. Dies sind Wörter, die sich nicht 
mehr weiter zerlegen lassen, z.B. „Fisch“ 
(von „piscis“) oder „Tisch“ (von „dis- 
cus“). Obwohl wir neben „Tisch“ und 
„Fisch“ zahlreiche andere „euphoni- 
sche”, d.h. gut auszusprechende Wörter 
erzeugen könnten, z.B. „Risch“ und 
„Lisch“, ist dies aus psychologischen 
Gründen nicht üblich. Selbst bei Program- 
miersprachen machen wir die Erfahrung, 
daß völlig aus der Luft gegriffene Lautge- 
bilde, etwa RISCH statt PRINT oder LISCH 
statt READ ungebräuchlich sind. Zwischen 
einer sog. natürlichen Sprache (z.B. 
Deutsch) und einer sog. künstlichen Spra- 
che (z.B. Pascal) besteht also nur ein gra- 
dueller Unterschied, so daß wir bei unse- 
rer Sprachdefinition das Begriffsmerkmal 
„natürlich“ vorbehaltlos streichen können. 
Damit lassen sich dann auch Program- 
miersprachen, die man auch als formali- 
sierte Sprachen bezeichnet, in dieser Hin- 
sicht Sprachen nennen. Wir sind damit bei 
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folgender Definition angelangt: „Sprache 
ist ein menschliches Verständigungsmittel 
zur Mitteilung von Bewußtseinsinhalten.” 


Wir möchten in diesem Zusammenhang 
darauf hinweisen, daß zwischen natürli- 
chen Sprachen und natürlichen Zeichen 
ein Unterschied besteht. Von natürlichen 
Zeichen sprechen wir, wenn zwischen 
Zeichen und bezeichnetem Gegenstand 
ein sachlicher, z.B. kausaler (Rauch — Feu- 
er; Symptom — Krankheit) oder abbilden- 
der (Paßbild — Person; Film — Wirklichkeit), 
Zusammenhang besteht. Eine auf Lauten 
basierende Sprache kann deshalb nur in 
bezug auf die Laute selbst natürliche Zei- 
chen aufweisen (Onomatopöie = Lautma- 
lerei, z.B. „Wau-wau“ usw.). Da dies je- 
doch eher die Ausnahme denn die Regel 
ist, sind Sprachen in der Regel künstliche 
Zeichensysteme. 


5.4. Menschliche Verständigung 


Wir sind jetzt bei unserer Streichlösung an 
einem kritischen Punkt angelangt. Können 
wir auch auf das Begriffsmerkmal 
„menschlich“ verzichten? Wenn wir be- 
rücksichtigen, daß auch Tiere eine Spra- 
che haben, die mit der menschlichen Ge- 
stik und Mimik vergleichbar ist, so können 
wir das Wort „menschlich“ streichen, weil 
unsere Sprachdefinition dann immer noch 
durch das Wort „Bewußtseinsinhalte” zu- 
sammengehalten wird: „Sprache ist ein 
Verständigungsmittel zur Mitteilung von 
Bewußtseinsinhalten.“ Wenn und soweit 
Tiere oder andere Wesen ein Bewußtsein 
haben, können deren Sprachen mit Recht 
als Sprachen bezeichnet werden. Doch 
haben auch Computer ein Bewußtsein? 


5.5. Verständigungsmittel 


Auf diesen Oberbegriff werden wir bei un- 
serer Streichlösung nicht verzichten kön- 
nen, doch ist es an der Zeit, ihn näher zu 
erläutern. Unter Verständigungsmittel ver- 
stehen wir ein System (F. de Saussure: 
Langue) von sprachlichen Elementen 
(Wortschatz, Lexik) und sprachlichen Re- 
geln (Grammatik, Syntax), mit deren Hilfe 
sich eine praktisch unbegrenzte Anzahl 
von sprachlichen Äußerungen bilden las- 
sen. Programmiersprachen sind insoweit 
zweifellos als Sprachsysteme zu bezeich- 
nen. Den Unterschied zwischen Lexik und 
Syntax wollen wir an einer künstlich kon- 
struierten Sprache (= Objektsprache) ver- 
deutlichen, die wir in einer hier vereinfach- 
ten Form mit Hilfe der natürlichen Sprache 
(= Metasprache) wie folgt beschreiben: 
Die Lexik umfasse die „Personenbegriife” 
A = Anton; B = Berta; C = Caesar 

sowie die „Relationenbegriffe” 
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S = sieht; T = trifft; U = untersucht. 

In der Syntax legen wir fest, daß ein kor- 
rekter Satz aus einem der Elemente S, T 
oder U besteht, dem eines der Elemente 
A, B, C vorangeht und eines der Elemente 
A, B, © folgt, wobei das vorangehende 
Element nicht mit dem nachfolgenden Ele- 
ment identisch sein darf. Es lassen sich 
damit Sätze wie ASB ASC BSA BSC CSA 
CSB usw., nicht jedoch Sätze wie ASA 
ABC STU ABS usw. bilden. Wie ersicht- 
lich, sind Programmiersprachen wie As- 
sembler, BASIC, Pascal usw., aber auch 
mathematische und chemische Formel- 
sprachen in dieser Hinsicht als Sprachen 
anzusehen. Und genau dieser Umstand, 
daß künstliche, symbolische oder formali- 
sierte Sprachen eine Lexik und eine Syn- 
tax haben können, hat denn auch dazu 
geführt, daß man Programmiersprachen 
als Sprachen bezeichnet. 


5.6. Mitteilung 


Der klassische Fall der sprachlichen Kom- 
munikation oder des Sprechens (F. de 
Sassure: Parole) ist das Gespräch zwi- 
schen zwei Menschen, die als Gesprächs- 
partner abwechselnd als Sprecher und 
Hörer fungieren. Eine Kommunikation 
kann jedoch auch in nur einer Richtung 
verlaufen, wie dies für Vorträge, Reden 
und Rundfunksendungen typisch ist. All 
diesen Kommunikationstormen ist ge- 
meinsam, daß sich an beiden Enden des 
„Kommunikationskanals“ mindestens ein 
bewußtes Wesen befindet. Zwar sind auch 
„Predigten vor leeren Bänken“ denkbar, 
und aus der Literaturgeschichte wissen 
wir, daß manche Werke (die dann postum 
erschienen sind) von Autoren „nur für sie 
selbst“ geschrieben wurden. Typisch sind 
diese Kommunikationen jedoch nicht, 
denn schließlich steckt im Begriff der „Mit- 
Teilung“, des „Gemeinsam-Machens’ 
(communicatio — communis), daß die 
Nachricht nicht nur ausgesendet, sondern 
auch empfangen wird. 

Wer sind jedoch die Gesprächspartner bei 
einer Programmiersprache? Wenn wir die 
Möglichkeit von uns weisen, daß sich zwei 
Programmierer in Pascal oder in BASIC 
(> Objektsprache) unterhalten (wohl aber 
über Pascal oder über BASIC — Meta- 
sprache), so verbleibt eigentlich nur noch 
die Möglichkeit, daß ein Programmierer 
mit seinem Computer in einer Program- 
miersprache kommuniziert. Damit haben 
wir jedoch nicht mehr eine Mensch- 
Mensch-, sondern eine Mensch-Maschi- 
ne-Kommunikation. Dies verträgt sich je- 
doch nicht mit der Mitteilung von Bewußt- 
seinsinhalten. Bewußtsein ist das Mit-Wis- 
sen (con-scientia) des denkenden, fühlen- 
den und wollenden Ichs. Ohne Bewußt- 
sein gibt es auch keine Kommunikation, 


denn solange Kommunikator und Kommu- 
nikant kein Bewußtsein haben, sind „Wör- 
ter“ und „Sätze“ nur physikalische Er- 
scheinungen, also Schallwellen im Raum 
oder Farbpigmente auf dem Papier. Um 
den Begriff der Sprache für die Informatik 
dennoch retten zu können, müßten wir 
entweder den Computer als denkendes, 
fühlendes und wollendes Wesen begrei- 
fen, womit wir wieder beim anthropomor- 
phisierenden Weltbild des Urmenschen 
angelangt wären, oder wir müßten auch 
unbewußte Kommunikationen zulassen, 
womit beispielsweise die Erythrozyten mit 
den Leukozyten in der Blutbahn oder der 
6502- mit dem Z80-Prozessor im Compu- 
ter kommunizieren würden. Dies führt 
aber zu einer Aufweichung des Kommuni- 
kationsbegriffs selbst, weil jetzt alles kom- 
muniziert, was korreliert oder in Wechsel- 
beziehung steht. In diesem Sinne schreibt 
beispielsweise L.G.Tesler: „Einige Spra- 
chen verleihen dem Computer sogar 
gleichsam eine gespaltene Persönlichkeit: 
Er wir zu einem Verbund unabhängiger 
Stellen, die ihre eigenen Berechnungen 
vornehmen und untereinander kommuni- 
zieren.” 


6. Semiotik 


Die von Ch. S. Pierce begründete Semio- 
tik oder allgemeine Zeichenlehre unter- 
scheidet syntaktische (Zeichen — Zei- 
chen), semantische (Zeichen — Bedeu- 
tung) und pragmatische (Zeichen — Benut- 
zer) Aspekte des Zeichens. Dies bedeutet 
in bezug auf Sprachen folgendes: 


— Unter Syntax verstehen wir generell die 
Beziehungen zwischen Zeichen oder spe- 
ziell die „Zusammenstellung“ (syn-tas- 
sein) der Wörter im Satz. So ergeben bei- 
spielsweise die Wörter „Hans“, „Fritz“ 
und „sieht“ je nach Woritstellung („Hans 
sieht Fritz“ und „Fritz sieht Hans“) einen 
unterschiedlichen Sinn. Ähnliches gilt für 
Programmiersprachen, doch ist deren 
Syntax erheblich starrer als die der natürli- 
chen Sprachen. Der syntaktische Aspekt 
von Programmiersprachen ist damit unbe- 
stritten. 

— Schwieriger wird es dagegen, wenn wir 
den semantischen (bedeutungsmäßigen) 
Aspekt unter die Lupe nehmen. Was be- 
deutet Bedeutung? Wenn Sie einen Baum 
sehen, so haben Sie eine Wahrnehmung 
dieses Baumes in Ihrem Bewußtsein. 
Wenn Sie eine schwarze Farbe sehen, So 
haben Sie ebenfalls eine bestimmte Wahr- 
nehmung in ihrem Bewußtsein, nämlich 
die der schwarzen Farbe. Wenn Sie je- 
doch das folgende, aus schwarzer Farbe 
bestehende Gebilde 

BAUM 
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sehen, taucht in Ihrem Bewußtsein neben 
der Wahrnehmung dieses schwarzen Ge- 
bildes zusätzlich die Vorstellung eines 
Baumes auf, Diese Vorstellung, die mehr 
oder weniger abstrakt sein kann, nennen 
wir den Begriff des Baumes oder allge- 
mein die Bedeutung eines Zeichens. Ähn- 
liches gilt auch für die Bedeutungsgebilde 
in Programmen, z.B. PRINT. Doch gibt es 
bei Programmiersprachen im Gegensatz 
zu natürlichen Sprachen einen kleinen, 
aber sehr wichtigen Unterschied: Die Be- 
deutung des Zeichens PRINT taucht als 
Vorstellung nur in Ihrem Bewußtsein auf 
und nicht etwa in dem Bewußtsein Ihres 
Computers, auch wenn Sie ihn noch so oft 
mit PRINT „ansprechen“. 


— Der pragmatische (sprechhandelnde) 
Aspekt betrifft die Relation zwischen Zei- 
chen und Benutzer. Bei einer natürlichen 
Kommunikation gibt es immer zwei gleich- 
wertige Benutzer, nämlich Sprecher und 
Hörer, Schreiber und Leser, Kommunika- 
tor und Kommunikant, die bezüglich des 
mitgeteilten Zeichens zumindest partiell 
deckungsgleiche Vorstellungsinhalte ha- 
ben müssen, weil sie sonst aneinander 
vorbeireden würden, und dies ist bekannt- 
lich keine Kommunikation. Letzteres gilt 
auch für die pragmatische Mensch-Com- 
puter-Beziehung, denn der Computer ver- 
steht nicht die Bedeutung von PRINT. Daß 
er trotzdem auf PRINT reagiert, wie auch 
ein Zigarettenautomat auf ein Markstück 
reagiert, hat mit Kommunikation nichts zu 
tun. 


7. Handlung 


Zum Abschluß unserer Erörterungen wol- 
len wir noch kurz auf den Begriff der Hand- 
lung eingehen. Programmiersprachen 
werden gerne als Befehlssprachen erklärt, 
denn „programmieren“ (griechisch: pro- 
graphein) heißt vor-schreiben, anordnen, 
befehlen. Ein Programm wäre damit eine 
Folge von Befehlen an den Computer als 
Befehlsempfänger. Befehle wie GLEAR- 
SCREEN (Lösche den Bildschirm!) oder 
PRINT 7 (Zeige die Zahl 7 an!) lassen sich 
durch Befehlssätze (lImperative) um- 
schreiben. In Programmen tauchen zwar 
auch Aussagesätze auf, doch niemals iso- 
liert, sondern stets als Bestandteile von 
Befehlssätzen (IF Aussagesatz, UNTIL 
Aussagesatz, WHILE Aussagesatz usw.). 


Eine Handlung kann als bewußte, willentli- 
che Tätigkeit definiert werden. „Schon Ari- 
stoteles betont als Kriterien des selbsttäti- 
gen, ungezwungen freien Handelns die 
Bewußtheit und die Gewolltheit. Beide 
sind grundsätzlich ichhaft, ichzugehörig 
und tätigkeitsverbunden,...  Selbstbe- 
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stimmtheiten des selbst- und gegen- 
standsbewußten Willenswesens Ich“ 
(B. von Brandenstein). 

Dabei lassen sich die Handlungen anderer 
Menschen — graduell abgestuft — durch 
Empfehlungen, Wünsche und Befehle be- 
einflussen. Es gibt Teilbereiche des 
menschlichen Zusammenlebens, die 
überwiegend durch Befehlssprachen be- 
stimmt sind (Kasernenhofsprache). Wenn 
wir eine Trennung zwischen dem RAM- 
Speicher, in dem das Programm als eine 
Folge von Befehlen abgelegt ist, und dem 
eigentlichen Prozessor als Befehlsemp- 
fäanger machen, so können wir sagen, daß 
Prozessoren die in dem Programm fixier- 
ten Befehle „mit absolutem Gehorsam" 
(N. Wirth) ausführen. All dies muß jedoch 
in einem metaphorischen Sinne verstan- 
den werden, denn den Computer im 
sprichwörtlichen Sinne als handelndes 
und gehorsames Wesen aufzufassen, 
scheint uns verfehlt zu sein. Konsequen- 
terweise müßten wir dann nämlich auch 
von einem „gehorsamen Stein“ sprechen, 
weil er immer „gehorsam“ zur Erde fällt, 
sobald wir ihm durch das Öffnen der Hand 
„befehlen”, nach unten zu fallen. 


8. Ausblick 


Im Laufe der nächsten Jahrzehnte werden 
wir Bekanntschaft mit Robotern machen, 
die in unserer Muttersprache „antworten“ 
werden, wenn man sie „anspricht“, und 
die „handeln“ werden, wenn man ihnen 
„Befehle“ erteilt. In „geisterhaften“ Fabri- 
ken werden sie sich miteinander „unter- 
halten”, um für eine reibungslose „Erfül- 










M ein Progra mimverer 


Versjeht mich nicht! 
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lung“ der ihnen übertragenen „Aufgaben“ 
zu sorgen, Der alte Menschheitstraum des 
künstlichen Menschen (= Homunkulus) 
wird dann in greifbare Nähe rücken. Es läßt 
sich unschwer prophezeien, daß man die- 
sen Homunkuli auch „menschliche“ Na- 
men gegeben wird, auf die sie dann „hö- 
ren“ werden. Sollten sie auch im häusli- 
chen Bereich als dienstbare „Geister“ 
Einzug halten, so werden findige Program- 
mierer dafür sorgen, daß auch das 
Menschlich-Allzumenschliche gebührend 
berücksichtigt wird mit der Folge, daß 
manche den Unterschied zwischen 
Mensch und Maschine nicht mehr so ge- 
nau nehmen werden. 


Der Sinn dieses Beitrages soll nicht darin 
bestehen, daß wir in Zukunft Begriffe wie 
„Sprache“ oder „Handlung“ aus unserem 
informationstechnischen Vokabular strei- 
chen oder fortan nur noch in Anführungs- 
zeichen setzen. Es würde schon genügen, 
wenn wir uns gelegentlich auf die ur- 
sprünglichen Bedeutungen zurückbesin- 
nen und mithin die Tatsache nicht verges- 
sen, daß wir im Grunde genommen in 
Metaphern reden. So schreibt denn auch 
N. Wirth, indem er von seinen eingangs 
zitierten Aussagen abrückt, an anderer 
Stelle: „Um die abstrakten Datenstruktu- 
ren und Algorithmen eines Programms 
formulieren zu können, ist eine formale 
Notation unumgänglich... Solche formalen 
Notationen heißen Programmiersprachen, 
obwohl diese Bezeichnung irreführend ist. 
Denn Programmieren hat wenig gemein 
mit dem Schreiben in einer Sprache“ 
(Spektrum der Wissenschaft, Sonderheft 
Computersoftware, 1986, S. 16). 
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GFABASIC- 





Kompaktkurs 





Teil 1: Grundlagen und Mathematik 


von Ulrich Stiehl 





Vorbemerkung: Dieser Kompaktkurs wendet 
sich überwiegend an Ätari-Anfänger, die bislang 
noch nie programmiert haben. Mit seinen rund 
300 Befehlen dürfte GFABASIC jedoch auch 
fortgeschrittenen BASIC-Programmierern viel 
Neues bieten. 


1. Allgemeines 


GFABASIC ist zur Zeit wahrscheinlich das lei- 
stungsfähigste 68000-BASIC, das andere Dia- 
lekte, z.B. das beim Atari mitgelieferte ST-BA- 
SIC von Digital Research oder das für den Mac- 
intosh gesondert erhältliche Microsoft-BASIC 
nachgerade als Amateurprodukte erscheinen 
täßt. GFABASIC kann mit einem beachtlichen 
Programmierkomfort, einer ungewöhnlich ho- 
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hen Ausführungsgeschwindigkeit, einem sehr 
großen Befehlsumfang sowie leistungsfähigen 
pascal-ähnlichen Programmstrukturen aufwar- 
ten, Neben dem Interpreter ist auch ein Compi- 
ler erhältlich, doch ist der Interpreter derart effi- 
zient, daß eine Compilierung oft entbehrlich ist. 
Für kleinere bis mittelgroße Programmprojekte 
ist GFABASIC deshalb zur Zeit anderen Hoch- 
sprachen (Pascal, C usw.) spürbar überlegen. 
Darüber hinaus kann man bei Bedarf Assem- 
blerroutinen einbinden, wodurch sich weitere 
Einsatzmöglichkeiten ergeben. 


1.1. Interpreter und Compiler 


Ein Befehl (eine Instruktion, ein Kommando) 
veranlaßt den Computer zur Durchführung einer 
bestimmten Tätigkeit (Tastaturabfrage, Rechen- 


operation, Bildschirmausgabe usw.), wobei eine 
Folge von Befehlen bzw. Befehlszeilen als Pro- 
gramm bezeichnet wird. Zur Erstellung von 
Programmen dienen symbolische Befehlsnota- 
tionen, die als Programmiersprachen be- 
zeichnet werden. Ein Mikroprozessor, z.B. der 
68000, beherrscht nur sehr elementare binäre 
Befehle, z.B. das Übertragen eines Worts 
(16stelligen Bitmusters) von einer Speicherstel- 
le in die andere oder das Setzen und Löschen 
einzelner Bits. Folglich ist die Maschinenspra- 
che als die Summe dieser binären Befehle die 
einzige Sprache, die der Mikroprozessor „ver- 
steht". Die Eingabe von Bitmustern, z.B. 
„01001110 01110101“ usw., kann jedoch kei- 
nem Programmierer zugemutet werden. Folg- 
lich wurden Assemblersprachen entwickelt, 
die maschinensprachliche Instruktionen durch 
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Befehlskürzel (mnemonische Kurzwörter) aus- 
drücken. Beispielsweise steht dann „RTS“ für 
das obige Bitmuster. Nun haben jedoch die 
Assemblerbefehle mit den Aufgaben, die man 
mit dem Mikrocomputer lösen will, kaum etwas 
gemein. So muß man beispielsweise für das 
Plotten eines Kreises ein Programm mit Tau- 
senden von Assemblerbefehlen schreiben. 
Deshalb wurden Hochsprachen geschaffen, 
die sich gewissermaßen aus Makrobefehlen zu- 
sammenseltzen, z.B. „Circle x,y‚r“ = „Zeichne 
einen Kreis mit dem Radius r an der xy-Koordi- 
nate”. Da der Computer jedoch mit dem Wort 
„Circle“ nichts anfangen kann, muß der Kreis- 
befehl zunächst in den Objektcode, d.h. in die 
entsprechende maschinensprachliche Befehls- 
folge, umgewandelt werden, bevor der Kreis 
dann tatsächlich am Bildschirm erscheinen 
kann. Ein Programm besteht jedoch normaler- 
weise nicht aus einem einzigen Befehl (,„Einzei- 
ler“), sondern aus einer Folge von Befehlszei- 
ien, dem Quelltext. Hier bieten sich nun zwei 
Möglichkeiten an: Wenn der Quelltext insge- 
samt in den Objektcode umgewandelt wird, 
sprechen wir.von einer Compilersprache. 
Wenn umgekehrt immer nur diejenige Pro- 
grammzeile, die gerade abgearbeitet werden 
soll, in eine kurze maschinensprachliche Be- 
fehlsfolge umgewandelt wird, sprechen wir von 
einer Interpretersprache. 


BASIC (Beginner’s All-purpose Symbolic In- 
struction Code) gehört also zu den Interpreter- 
sprachen. Dies hat Vor- und Nachteile: 

Vorteil: Befehle, die man im sog. Direkt-Modus 
eingibt, werden unmittelbar ausgeführt (ähnlich 
wie bei einem Taschenrechner). Wenn man z.B. 
über die Tastatur „Print 7 * 8" eingibt, so wird 
sofort das Ergebnis, also hier „56“, angezeigt. 
Unbekannte Befehle kann man also mühelos 
ausprobieren. Ferner können Programme, die 
gerade in den Editor eingegeben worden sind, 
ohne Zeitverlust mit „Run“ gestartet werden. 
Bei Compilersprachen ist hierzu erst eine oft 
mehrere Minuten dauernde Compilierung erfor- 
derlich. 

Nachteil: Da bei Interpretersprachen während 
des laufenden Programms jeder Befehl einzeln 
interpretiert, d.h. in Maschinensprache umge- 


Er EFT TE 
ET A TR DE ET TAT BL: 
Ren Print-Using-Deno u va | 
Print Using "te, um" +12,345 
Print Using "Re, -172,345 
Priat 
Print Using "-BR,H#",+12.345 
Print Using "BR. HE,-172.345 
Print 
Print Using "+RR.HB", +12,345 
Print Using "HR8.,-12.345 
Print 
Print Using "HR, EH DM", +12,345 
Print Using "BRR,HR DN",-12.345 
Print 
Print Using "rk BE, +1,234 
Print Using "BER. BEN, -1,234 
Print 
Print Using "+ SRpAAAAU +19,345 
Print Using "+R HasAAAAıt -19,345 
Print 
Print Using "MAR, HR, ERBE HS, 123456789,12 
Print Using "RE, HIHE, HERE HR, -123456789 17 


Abb. 1: Edit-Bildschirm 
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wandelt, werden muß, ist BASIC insbesondere 
bei Programmschleifen relativ langsam. Des- 
halb sind zu den meisten BASIC-Dialekten zu- 
sätzlich Compiler verfügbar, die den BASIC- 
Quelltext insgesamt in einen BASIC-Objekt- 
code konvertieren. Die Entwicklung eines Pro- 
gramms erfolgt dann mit dem BASIC-Interpre- 
ter, und nach Abschluß aller Testläufe wird das 
fertige Programm nur ein einziges Mal compi- 
liert. 


1.2. Direkt- und Run-Modus 


Die klassischen BASIC-Dialekte verfügen über 
einen gemeinsamen Bildschirm für Direkt-, 
Edit- und Run-Modus: 

@ Die Eingabe von z.B. 

Print “Hallo“ 

bewirkt die direkte Ausführung des Befehls, 
also hier die Ausgabe von „Hallo“ auf dem 
Bildschirm (Direkt-Modus). 

® Die Eingabe von z.B. 

10 Print "Hallo" 

bewirkt die Übernahme dieses Befehls in den 
Programmspeicher (Edit-Modus). An der füh- 
renden Zeilennummer, hier 10, erkennt der tra- 
ditionelle BASIC-Interpreter, daß nicht der Di- 
rekt-, sondern der Edit-Modus gemeint ist. 

@ Die Eingabe von z.B. 

Run 

bewirkt den Start des zuvor in den Speicher 
eingegebenen Programms (Run-Modus). 


GFABASIC macht im Gegensatz zu den tradito- 
nellen BASIC-Dialekten, aber im Einklang mit 
den meisten anderen Hochsprachen, von dem 
Zeilennummernkonzept keinen Gebrauch. 
Folglich muß zwischen Edit- und Direkt/Run- 
Bildschirm unterschieden werden: 

© Der Edit-Bildschirm ist an einer Kopfleiste 
ersichtlich (s. Abb. 1), die in 2 Zeilen mit je 10 
Befehlsfeldern eingeteilt ist, die den Funktions- 
tasten Shift-F1 bis Shift-F10 (obere Zeile) sowie 
Fi bis F1O (untere Zeile) zugeordnet sind. Alle 
im Edit-Modus eingegebenen Befehlszeilen 
werden in den Programmspeicher (= Quelltext) 
übernommen. Die Funktionstasten sind nur im 
Edit-Modus wirksam. 

® Wenn man auf die Esc-Taste tippt (ohne 
Return), so gelangt man jederzeit vom Editor in 


12,35 
-12,35 


12,35 
12.35 


+12.35 
-12,35 


42,35 DH 
-12,35 DH 


#A|.23 
%-1,23 


+1, 235E+81 
-1.235E+B1 


123,456, 789.12 
-123,456,789.12 


Bien 
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den Direkt/Run-Bildschirm (s. Abb. 2), der über 
keine Kopfleiste verfügt. Hier kann man entwe- 
der Direktbefehle über die Tastatur eingeben, 
die dann sofort ausgeführt werden, oder ein im 
Speicher befindliches Programm mit „Run“ 
starten. Mit Esc (gefolgt von Return) gelangt 
man in den Edit-Modus zurück. 

Merke: Mit Esc (oder Shift F9) gelangt man vom 
Edit- in den Direkt-Modus und umgekehrt mit 
Esc-Return (oder „Edit“) vom Direkt- in den 
Edit-Modus. 

Anmerkung: Andere BASIC-Interpreter, z.B. 
ST-BASIC für den Atari oder Microsoft-BASIC 
für den Macintosh machen von der Fenstertech- 
nik Gebrauch und verfügen dann über Com- 
mand-, List- und Output-Fenster. Vorteil: Man 
sieht alles auf einen Blick. Nachteil: Bildschirm- 
steuerung frustrierend langsam. 





2. Editor 


2.1. Laden des Interpreters 


Nachdem man die Atari-Systemdiskette geboo- 
tet hat, kann man GFABASIC wahlweise über 
das GEM-Desktop oder über eine DOS-Shell 
starten: 

GEM-Desktop: GFABASIC-Diskette einlegen, 
entsprechendes Diskettenbild, z.B. Diskstation 
A, öffnen und dann zweimal auf GFABA- 
SIC.PRG-Ikone klicken. Wenn Sie später GFA- 
BASIC über den Quit-Befehl verlassen, gelan- 
gen Sie automatisch in das GEM-Desktop zu- 
rück. 

DOS-Shell: Es gibt verschiedene DOS-Shell- 
Programme, die meistens COMMAND.PRG 
heißen. Aus einem solchen Command-Pro- 
gramm heraus starten Sie GFABASIC durch 
Eingabe des Namens über die Tastatur, z.B. 
A:GFABASIC.PRG oder kürzer GFABASIC. 
Wenn Sie später GFABASIC über den Quit- 
Befehl verlassen, gelangen Sie automatisch in 
das Command-Programm zurück. 


2.2. Befehlszeile 


Nach dem Start von GFABASIC befinden Sie 
sich zunächst im Edit-Bildschirm. Geben Sie 
nun über die Tastatur eine Zeile ein, z.B. 

Print "Hallo" 





Abb. 2: Run-Bildschirm 
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Befehlswörter wie Print können Sie wahlweise 
in Groß- oder Kleinbuchstaben eingeben, z.B. 
Print, PRINT, print usw. Für fast alle Befehle gibt 
es Abkürzungen, die Sie dem GFABASIC- 
Handbuch entnehmen können. Für Print würde 
z.B. P oder p genügen. Da man sich jedoch die 
Abkürzungen nicht alle merken kann, werden 
sie in diesem Kurs nicht verwendet. Drei Son- 
derzeichen sollen jedoch gesondert aufgeführt 
werden: 

? steht für Print, 

(@ steht für Gosub, 

' steht für Rem. 

Zwischen Befehlswörtern (z.B. Print) und den 
folgenden Parametern (z.B. „Hallo“) brauchen 
Sie meistens keine Leerzeichen zu tippen, 
denn die eingegebene Befehlszeile wird ohne- 
hin vom Editor nachträglich formatiert. Statt 
Print “Hallo” 

könnte man also auch 

Print“ Hallo“ oder 

?"Hallo“ 

eingeben. 

Bei Funktionen muß sogar die Leertaste zwi- 
schen Befehlswort und eingeklammerten Para- 
metern entfallen, also 

Print Sin(30) richtig 

Print Sin (30) falsch. 


2.3. Programmaufbau 


Ein GFABASIC-Quelltext besteht aus einer Fol- 
ge von Befehlszeilen, die jeweils durch Return 
abgeschlossen werden müssen. Dabei kann ei- 
ne Zeile mehr als 80 Zeichen einnehmen (hori- 
zontales Scrollen bis maximal 255 Zeichen), 
doch darf sie nur einen einzigen Befehl enthal- 
ten. Eine Ausnahme stellt der hinzugefügte 
Kommentar dar, der mit „!“ anstelle von Rem 
oder „’" eingeleitet wird, z.B. 

Print "Hallo“ ! Kommentar... 

Anmerkung: Bei anderen BASIC-Dialekten 
kann man mehrere Befehle pro Zeile eingeben, 
die dann üblicherweise durch den Separator „:” 
getrennt werden. Der Grund, daß GFABASIC 
nur 1-Befehl-Zeilen zuläßt, liegt darin, daß er- 
stens bei Verwendung langer Variablennamen 
eine Bildschirmzeile ohnehin schnell gefüllt wird 
und zweitens bei Programmschleifen automa- 
tisch eingerückt wird. Dies wäre bei einer kom- 
pakten Notation in der Art anderer BASIO-Dia- 
lekte kaum möglich, Man vergleiche hierzu die 
nachfolgende Gegenüberstellung: 


Rem Applesoft-BASIC 
16 For I=1 to 1: For J=1 to 19 
Print I,J: Next J,I 

Ren GFABASIC 
For I=1 to 19 

For J=1 to 1ß 

Frantol.d 

Next J 

Next I 


2.4. Editierbefehle 


Aus der Befehlsleiste des Edit-Bildschirms sind 
20 Kommandos ersichtlich, die durch Anklicken 
mit der Maus ausgelöst werden können: 

@ Über Save und Load kann man Programme 
mit Suffix „Bas“ (im Binärformat) speichern 
bzw. laden. Mit Save,A und Merge werden Pro- 
gramme mit Suffix „Lst” (im ASCII-Format) ge- 
speichert bzw. eingelesen. Beim Merge-Befehl 
wird der Textfile ab der momentanen Cursorpo- 
sition in ein bereits im Speicher befindliches 


0 


Programm eingefügt. Mit Llist wird das Pro- 
gramm ausgedruckt. 

@ Mit Direct (oder durch Drücken auf die Esc- 
Taste) kann man in den Direkt-Bildschirm über- 
wechseln. Mit Flip kann man zwischen Edit- und 
Run-Bildschirm hin- und herschalten (Toggle- 
Schalter). 

@ \ew löscht das Programm im Speicher, Test 
prüft, ob alle Programmschleifen richtig aufge- 
baut sind, Run startet das Programm im Spel- 
cher. Mit Quit verläßt man den GFABASIC- 
Interpreter. 

® Mit Block Start wird die Zeile, auf der der 
Cursor ruht, als Anfang eines Textblocks mar- 
kiert. Mit Block End wird das Ende des markier- 
ten Textblocks festgelegt, der sich bis zu derje- 
nigen Zeile erstreckt, unter der der Cursor 
steht, d.h. ausschließlich der momentanen Cur- 
sorzeile. Ein durch Block Start und Block End 
markierter Textblock wird punktschraffiert am 
Bildschirm angezeigt. Mit Block erscheint eine 
weitere Menüzeile mit diversen Blockoperatio- 
nen, aus denen ausgewählt werden kann, und 
zwar 

C: Copy = Duplizieren und somit Verdoppeln 
des markierten Textblocks vor diejenige Zeile, 
auf welcher der Cursor momentan ruht. 

M: Move = Verschieben des Textblocks vor die 


Cursorzelle. 

W: Write = Speichern eines Textblocks als 
Textfilie mit Suffix „Lst" (Gegenstück zu 
Merge). 


L: Liist= Ausdruck eines Textblocks. 

S: Start = Cursor zum Block-Anfang. 

E: End = Cursor zum Block-Ende. 

Ctrl-D: Del = Löschen eines Textblocks. 

H: Hide = Blockmarkierung aufheben. 

@ Mit Find wird die zu suchende Zeichenfolge 
festgelegt, die dann mit Ctrl-F gefunden werden 
kann. Mit Replace werden Such- und Ersetz- 
Zeichenfolge festgelegt. Mit Ctri-R findet dann 
das Ersetzen statt. 

@ Mit Insert und Overwrite kann man zwischen 
dem Einfüge- und Überschreibmodus wechseln 
(Toggle-Schalter). Normalerweise befindet man 
sich im Einfügemodus. 

® Mit Text 16 und Text 8 kann man zwischen 
großer und kleiner Textschrift umschalten 
(Toggle-Schalter). Normalerweise wird die 
Text-16-Schrift verwendet (25 Zeilen/Seite ab- 
züglich der Menüleiste). 

Man kann statt Maus und Menüleiste auch mit 
den entsprechenden Funktionstasten arbeiten 
(S.U.) 


Cursorbewegung 

Rechtspfeil C. nach rechts 
Linkspfeil GC. nach links 

Hochpfeil C. nach oben 

Tiefpfeil C. nach unten 

Return C. nach unten 
Ctrl-Rechtspfeil C, zum Zeilenende 
Gtri-Linkspfeil 6. zum Zeilenanfang 
Ctri-Hochpfeil GC. zum Bildschirmanfang 
Ctrl-Tiefpfeil C. zum Bildschirmende 
Ctrl-Home GC. zun Programmanfang 
Ctrl-Z C. zum Programmende 

Tab Cı 8 Stellen nach rechts 
Ctrl-Tab C. 8 Stellen nach links 


Man beachte, daß man eine Programmzeile 
nicht nur mit Return, sondern auch mit Hoch- 
pfeil oder Tiefpfeil abschließen kann und daß in 
allen drei Fällen der Cursor nicht am Zeilenende 
stehen muß. 


Delete/lnsert/Find/Replace 


Backspace-Taste Zeichen rückwärts löschen 


Del-Taste Zeichen vorwärts löschen 
Undo-Taste Änderungen zurücknehmen 
Ctrl-Del Eine ganze Zeile löschen 
Insert-Taste Eine ganze Zeile einfügen 
Ctrl-P Find (vorher F6) 
CLrlR Replace (vorher Shift-F6) 
Funktionstasten 
Fl Load Program.Bas 
Shift-Fl Save Program,Bas 
F2 Merge Program.Lst 
Shift-F2 Save Program.Lst 
F3 Llist des Programms 
Shift-F3 Quit oder System 
rF4 Blockoperation 
C = Copy (Duplizieren) 
M = Move (Verschieben) 
W = Write (Block,Lst) 
L = Llist (Block-Ausdruck)} 
S = Cursor zum Block-Start 
E = Cursor zum Block-Ende 
H = Hide (Entmarkierung) 
Ctrl-D = Delete Block 
Shift-F4 New 
ES Markierung Block End 
Shift-Fö Markierung Block Start 
F& Find-String-Eingabe 
Shift-F6 Replace-String-Eingabe 
F7 wie Ctrl-Tiefpfeil 
Shift-F7 wie Ctrl-Hochpfeil 
F8 Insert/Overwrite-Toggle 
Shift-F8 Text-8/16-Toggle 
F9 Flip 
Shift-F9 Direct 
F1d Test 
Shift-F1® Run 


2.5. Direkte Systembefehle 


Wer bislang mit anderen BASIC-Interpretern 
gearbeitet hat, kann diverse Befehle statt über 
die Edit-Menüleiste auch über den Run-Bild- 
schirm eingeben. Nehmen wir an, wir hätten 
nach dem Start von GFABASIC, das uns zu- 
nächst in den Edit-Bildschirm führte, die Zeile 
Print “Hallo” 

eingegeben. Wenn wir nun auf die Esc-Taste 
tippen, wechseln wir in den Direkt-Bildschirm 
über. Wenn wir nun „Run“ eingeben, wird der 
Einzeiler gestartet, der „Hallo“ anzeigt und uns 
dann — leider — sofort wieder in den Edit-Bild- 
schirm zurückführt. Also tippen wir erneut auf 
die Esc-Taste, um zum Run-Bildschirm zurück- 
zukehren. Nunmehr können wir diverse Sy- 
stem- und Diskettenbefehle über die Tastatur 
eingeben. Beispiele: 

Save Demo 

speichert den Einzeiler unter dem Namen „De- 
mo.Bas“ in Binärform auf Diskette. 

List Demo 

speichert den Einzeiler unter dem Namen „De- 
mo.Lst“ in ASCII-Form auf Diskette. 

Files 

zeigt das Ersatz-Inhaltsverzeichnis (Default-Di- 
rectory) an. 

Llist 

druckt den Einzeiler aus (vorher Drucker ein- 
schalten). 

Load Demo 

lädt den Einzeiler wieder von Diskette. 

Kill Demo.Lst 

entfernt die ASCII-Datei Demo.Lst von der Dis- 
Kette. 

(Ein detaillierte Beschreibung der Diskettenbe- 
fehle folgt in einem späteren Teil dieses Kom- 
paktkurses.) 
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Sie müssen selbst experimentieren und prüfen, 
ob Ihnen die Edit-Menüleiste- oder die Direkt- 
Tastatur-Befehle mehr zusagen. Beachten Sie 
jedoch, daß die Funktionstasten im Direkt-Mo- 
dus nicht funktionieren, und merken Sie sich, 
daß Sie mit Esc (+ Return) jederzeit zwischen 
Edit- und Direkt-Bildschirm hin- und herwech- 
seln können. 


3. Mathematik 


In diesem Abschnitt werden wir nicht nur die 
mathematischen Befehle erklären, sondern in 
diesem Zusammenhang auch auf das seman- 
tisch-syntaktische Grundgerüst der Program- 
miersprache BASIC eingehen. 


3.1. Taschenrechner 


BASIC-Anfänger beginnen am besten mit den 
mathematischen Befehlen, weil diese von Ta- 
schenrechnern bereits teilweise bekannt sind. 
Übungshalber gehen wir deshalb mit Esc in den 
Direkt-Modus. Wenn wir nun beispielsweise 
Print 8x8 

tippen, erhalten wir 

64 

als Ergebnis am Bildschirm angezeigt. Weitere 
Übungen: 


Print 19+2 ergibt 12 
Print 18-2 ergibt 8 
Print 1®«2 ergibt 20 
Print 18/2 ergibt 5 
Print (2x*3)+(3*4) ergibt 18 
Print 2x5 + 3#4 ergibt 18 
Print (243)}#(3+14) ergibt 32 
Frintt 27 3 #5 74 ergibt 15 
Print -8+ -8 ergibt -16 
Print 3S- 8 ergibt -16 
Print 198*19 ergibt 19% 
Print 1812 ergibt 19 
Print Sqr{1ß®) ergibt 1% 
Print 191 (1/2) ergibt 19 


Print 10*1d*19 ergibt 1999 


Print 1813 ergibt 1888 
Print 18901 (1/3) ergibt 19 
Print! ergibt 3.14l.,. 
Print Tan(45) ergibt Iu6ld;g 
Print Tan(45x*Pi/18Pß) ergibt 1. 
Print Atn({l) ergibt 9,785. 
Print Atn(1)})*180/Pi ergibt 45.9 


Nach diesen mehr intuitiven Beispielen, mit de- 
nen Sie als BASIC-Anfänger zunächst eine 
Zeitlang experimentieren sollten, können wir 
nunmehr zu einer systematischen Darstellung 
übergehen. 


3.2. Befehlswörter 


GFABASIC kennt etwa 300 Befehlswörter, z.B. 
Print, Input usw. Diese Wörter gelten als reser- 
viert, denn sie dürfen nicht als Variablennamen 
verwendet werden. 

Befehle werden auch als Anweisungen be- 
zeichnet. Im einzelnen unterscheidet man 

— einfache Anweisungen, z.B. Zuweisungen (Y 
= 10), Prozeduren (z.B. Print Y) und Funktionen 
(z.B. Y = Sin(X)), sowie 

— strukturierte Anweisungen, z.B. bedingte An- 
weisungen (If A = B Then...) und Wiederho- 
lungsanweisungen (Repeat ... Until A = B). 


Die Anweisung Print gibt beispielsweise dieje- 
nigen Werte am Bildschirm aus, die auf das 
Befehlswort Print folgen: 

Print 7 

gibt „7“, gefolgt von Return, aus. 


Peeker 1/87 


Print 7; 

gibt „/" ohne Return aus. 

Print 7;8 

gibt „78" mit Return nach 8 aus. 
Print 7x8 

gibt das Ergebnis „56” aus, 
Print "7x8" 

gibt die Zeichenfolge „7 * 8" aus, also das, 
was In Anführungszeichen steht. 
Print "7*x8=";7x*8 

gibt „7 #8 = 56” aus. 


3.3. Zahlenarten 


GFABASIG unterscheidet 3 Zahlentypen: 
Ganzzahlen (Integer-Zahlen), bei denen als 
Zahlzeichen nur die Ziffern O bis 9 sowie die 
Vorzeichen + und - zulässig sind, liegen im 
Bereich 

-2 147 483 648 bis +2 147 483 647 

und werden intern als 4 Bytes gespeichert 
(500000000 bis $7FFFFFFF für positive Ganz- 
zahlen). 

Fließkommazahlen (Real-Zahlen), bei denen 
zusätzlich der Dezimalpunkt sowie gaf. „E" 
bzw. „e" für die Exponentialform zulässig sind, 
liegen im Bereich 

-1.0 E+154 bis +1.0 E+154 

und werden intern als 6 Bytes gespeichert (wo- 
bei für den Exponenten 9 Bits zur Verfügung 
stehen: 2 T (279) = 10 154). Die Mantisse 
kann bis zu 11 Ziffern umfassen, z.B. 
1.2345678901. 

Wahrheitswerte (boolesche Werte), die für 
True = -1 und False = O stehen und intern als 2 
Bytes gespeichert werden (bei Arrays als 1 Bit). 


Wenn Sie am internen Zahlenaufbau interes- 
siert sind, so können Sie das nachfolgende 
Programm eingeben, das wahlweise Fließkom- 
ma- oder Ganzzahlen in binärer und hexadezi- 
maler Form am Bildschirm anzeigt. Damit Sie 
die Bitmuster besser erkennen können, geben 
Sie übungshalber Zweierpotenzen minus 1 ein, 
z.B. 255 (218-1), 2147483647 (= 2131-1) 
USW. 


Rem Interner Zahlenaufbau 
F1$=" BBBBBBR" 
p2$=" Ar 
Do 
Print 
Input.iV Zen es 
Exit If Len(Z$)=9 
Z$=Upper$(2$) 
Zz=Val(Z$) 
If Instr(2$,'"-.")>® Or Instr (2$,"E'")>9 
M$=Mkf$ (Z) 
Else 
M$=Mk1$ (2) 
Endif 
For I=1 To Len(M$) 
B$=Bin$(Asc(Mid$(M$,1I,1))) 
Print Left${F1$,9-Len{B$)):;B$; 
Next I 
Rrinte lt Zzanı 052 
For I=1 To Len(M$) 
H$=Hex$(Asc(Mid$(M$,I,1))) 
Print Left$(F2$,9-Len(H$));H$; 
Next I 
Print 
Loop 
Clear 


3.4. Variablen 


Wie in der Mathematik können Variablen oder 
genauer Variablennamen an die Stelle konkreter 
Zahlen treten, z.B. „Print X x Y". Beim GFA- 
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BASIC können Variablennamen theoretisch bis 
zu 255 Zeichen lang sein und werden dann 
auch bis zur vollen Länge unterschieden, z.B. 
„Langname.x" und „Langname.y". Variablen- 
namen müssen mit einem Buchstaben begin- 
nen; danach dürfen neben Buchstaben auch 
Ziffern folgen. Zwischen Groß- und Kleinbuch- 
staben wird nicht unterschieden. Ferner sind 
der eingebettete Punkt (.) und der Unterstrei- 
chungsstrich (_) erlaubt, also z.B. A, Al, A_B, 
A.B usw. Man beachte jedoch, daß keine reser- 
vierten Befehlswörter (Print, Input usw.) als Va- 
riablennamen deklariert werden dürfen. 

Damit der BASIC-Interpreter zwischen den ver- 
schiedenen Datentypen unterscheiden kann, 
werden Variablennamen mit Datentypkennun- 
gen versehen: 





Name% (%) Integer-Variable 
Name! {!) boolesche Variable 
Name$ ($} String-Variable 
Name {( ) Real-Variable. 


Wenn also ein Variablenname keinen Datentyp- 
zusatz aufweist (X, Y, Z usw.), dann wird auto- 
matisch eine Real-Variable unterstellt. 


3,5. Literalien und Konstanten 
Zu den Literalien (englisch: Literals) als den 


„buchsiabengetreuen Ausdrücken“ zählen 
(Beispiele): 

l Integer-Literal 

—l Integer-Literal 

1.9 Real-Literal 

1.dE1ß Real-Literal 

1E19 Real-Literal 

&HFF Hex-Literal (&H,.,} 

&077 Oktal-Literal (&0...) 

&K1B Binär-Literal (&X...) 


abc String-Literal 
label String-Literal 


Konstanten sind Werte, die sich im Laufe des 
Programms nicht ändern, gleichgültig ob sie als 
Literalien (z.B. 3.1415) oder als Konstantenna- 
men (z.B. Pi) deklariert werden. GFABASIC 
kennt u.a. die vordefinierten Konstanten 


Pi 3ulAlbs 
True -l 
False d 


Daneben kann man eigene Konstanten definie- 
ren (z.B. E = 2.7182), die jedoch in BASIC die 
gleiche Funktion wie Variablen haben und des- 
halb auch im Laufe eines Programms umdefi- 
niert werden könnten. Dies wäre in Pascal nicht 
zulässig. 


3.6. Zuweisung 
3.6.1. Terme 


Bei einer mathematischen Gleichung, z.B. 

27x +3%x-5+7=&xr? 

bezeichnen wir die Ausdrücke, die links und 
rechts vom Gleichheitszeichen stehen, als Ter- 
me. Bei den höheren Programmiersprachen 
sind Terme 

— Literalien, 

— Variablen, 

— Konstanten, 

— Funktionen oder 

— Formelausdrücke, 

Eine Wertzuweisung hat die Form „Variable = 
Term", z.B. 
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Y=- 1% Literal 

Yr=X Variable 

Y= Pi Konstante 

% = Sin(X) Funktion 

= X # 19 Formelausdruck 

Das Zeichen „=" ist hier kein Gleichheitszei- 


chen, wie es bei den später zu erläuternden 
Vergleichsaussagen vorkommt (z.B. f Y = X 
Then...), sondern ein Wertzuweisungszeichen, 
wofür zur Vermeidung von Mehrdeutigkeiten in 
Pascal „;=" oder in der Mathematik der Pfeil 
(<-) verwendet wird. „Y = 10" bedeutet folg- 
lich, daß Y den Wert 10 annehmen soll. Allge- 
mein bedeutet eine Zuweisung, daß der links 


vom „=“ stehenden Variablen der Wert des 
rechts vom „=" stehenden Terms zugewiesen 
werden soll, 


3.6.2. Funktionen 


Eine Funktion besteht aus dem Funktionswort 
(z.B. Sin) und dem eingeklammerten Term, der 
in der Mathematik als Funktionsargument X 
bezeichnet wird, und liefert einen Wert, der als 
Funktionsergebnis oder Funktionswert Y be- 
zeichnet wird. 

1. Wenn der Wert des Arguments X einer Varia- 
blen Y zugewiesen wird, so sprechen wir von 
einer expliziten Funktion, also z.B. 
r=.smnogroder 

S = Sin(30) usw. 

2. Dagegen liegt eine implizite Funktion vor, 
wenn dem Funktionswert eine Anweisung 
(meist Print) vorangestellt wird, z.B. 

Print Sin(X) oder 

Print Sin(30) usw. 

Funktionen können wie Klammerausdrücke ge- 
schachtelt werden: 

Print Sar(Sqr(16)) 

ergibt 2, denn die Quadratwurzel (Sqr = square 
root) von 16 ist 4 und die Quadratwurzel von 4 
ist 2, 


Darüber hinaus erwähnen wir für fortgeschritte- 
ne BASIC-Programmierer drei Sonderfaälle: 


1. Einige Funktionen dürfen nur in Print-Kon- 
struktionen und niemals in Wertzuweisungen 
auftreten, z.B. Spc und Tab: 

Print Spc(10); "Hallo" Irichtig 

S$ = Spc(10) Ifalsch 

2. Einige Funktionen haben aus syntaktischen 
Gründen ein Dummy-Argument, das zwar igno- 
riert wird, aber trotzdem nicht fehlen darf, z.B. 
Lpos(dummy) und Fre(dummy). 

3. Einige Funktionen haben scheinbar über- 
haupt kein eingeklammertes Argument, z.B. In- 
key$, Crscol, Crslin usw., z.B. 

T$ = Inkey$ 

In Wirklichkeit werden bei solchen Funktionen 
Hardware-Zustände (Tastatur, Cursorposition 
usw.) abgefragt, die dann intern als Argumente 
übergeben werden. 


3.6.3. Operatoren 


Operatoren sind die von der Mathematik her 
vertrauten Operationszeichen. Neben den ma- 
thematischen Operatoren (+, - usw.) gibt es die 
Vergleichsoperatoren (<, > usw.), die logi- 
schen Operatoren (And, Or usw.) sowie den 
Siring-Verketlungsoperator (+). Zu.den malhe- 
matischen Operatoren gehören im einzelnen: 
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Klammern: 

(runde Klammer auf 

) runde Klammer zu 

Klammerausdrücke genießen die höchste Prio- 
rität, d.h. eingeklammerte Ausdrücke werden 
vor allen anderen Ausdrücken ausgerechnet. 
Man vergleiche: 

2x2 +2x2ergibt8 

2x*(2 +2)x2 ergibt 16 


Vorzeichen: 

+ positiv (entfällt meist) 
- negativ 

Beispiele: 

-2 + 3 ergibt +1 

-2 + -3 oder besser 

-2 + (-3) ergibt -5 
-X+(-Y) 


Real-Operatoren: 

1 Potenz, z.B.5.0 7 2.0223.0 

+ Addition, z.B. 5.0 + 2.0 > 7.0 

- Subtraktion, z.B. 5.0 - 2.0 3.0 

x Multiplikation, z.B. 5.0 x 2.0 > 10.0 

/ Division, z.B. 5.0 /2.02.5 

Es gelten die Prioritäten: zuerst Potenzierung, 
dann Punktrechnung vor Strichrechnung, zB. 
100.07:01/2) > 10.0 

100.07172> 50.0 

Achtung: Bei der Potenzierung muß eine nega- 
tive Basis eingeklammert werden: 

Print -2 74 — -16 

Print (-2) 74 +16 

Man muß in GFABASIC nicht notwendigerweise 
2.0 statt 2 schreiben, wenn aus dem Zusam- 
menhang klar ist, daß Fließkommazahlen und 
nicht Ganzzahlen gemeint sind, weil immer auf 
denjenigen Zahlentyp umgerechnet bzw. abge- 
rundet wird, der als Ergebnis verlangt wird. 
Wenn keine Rundung möglich ist, wird eine 
Fehlermeldung ausgegeben. Beispiele: 


|% = Pi} 18 
Print I% ergibt 888582403 
RP le 


Print R ergibt 888582403.08 

|% = Pi} 19 ergibt Fehlermeldung 

Wenn ein Term mindestens eine Fließkomma- 
zahl enthält, wird der gesamte Term als FlieB- 
kommazahl berechnet und dann ggf, auf die 
Integer-Variable abgerundet. Da reine Integer- 
Berechnungen erheblich schneller als Real-Be- 
rechnungen sind, sollten Sie gemischte Aus- 
drücke vermeiden, soweit dies sinnvoll und 
möglich ist. 


Integer-Operatoren 

+ Addition, 2B.5 +27 

- Subtraktion, z.B.5-2—3 

Div Division, z.B.5 Dv2—2 

Mod Rest, z.B.5 Mod2 —1 

„Div“ steht für die Ganzzahldivision und „Mod” 
für den Rest aus einer Ganzzahldivision: 5 ge- 
teilt durch 2 = 2 Rest 1. 


Schnelle Grundrechenarten 

Wenn man auf den ursprünglichen Wert einer 
Fließkomma- oder Ganzzahlvariablen verzich- 
ten kann, lassen sich bestimmte Grundrechen- 
arten etwa doppelt so schnell ausführen: 


Add X,F entsprichttX=X + F 
Sub X,F entsprichttX = X-F 
Mul X,F entsprichttX = X xF 
Div X,F entspricht X = X /F 


Beispiele: 

F = 2 ! Faktor F bleibt unverändert 
X = 3 ! Variable X wird verändert 
AddxX,F>X=5 


SubXF>X=3 
MulX,F>X=6 
DvXx,F>X=3 


Anstelle der Quadrierung X * X können wir 
auch Mul X,X verwenden. 


Dec X entspricht X = X - 1 
Inc X entspricht X =X + I 


Beispiele 
X=5 
DeeX—>X=4 
neX>X=5 


3.7. Funktionen 


In GFABASIC sind folgende mathematische 
Funktionen vordefiniert, d.h. bereits in die Run- 
time-Bibliothek eingebaut: 


3.7.1. Transzendentale Funktionen 


Bei diesen Funktionen, die nur in Sonderfällen 
„glatte Zahlen“ liefern, z.B. bei Print Sqr(4) u.a., 
muß mit Rundungsfehlern ab der 10. Stelle 
gerechnet werden. Als Funktionsargumente 
dienen Real- und Integer-Terme, während die 
Funktionsergebnisse meistens Real-Zahlen 
sind, die jedoch oft auf Integer-Zahlen abgerun- 
det werden können. 


Y=Log(X) 

liefert den natürlichen Logarithmus (zur Basis 
e), während 

Y= Log10(X) 

den dekadischen Logarithmus (zur Basis 10) 
ausrechnet. Die Argumente müssen positive 
Zahlen sein. 

Y= Exp) 

entspricht e f X, wobei e = 2.7182... Beispiele: 
Print Log10(100) — 2 

Print Log(100)/Log(10) —> 2 

Print Exp(Log(10)+Log(10)) > 10x 10 
Y=Ep(1)>e 

T. = LoolExpRAlN > 

Wenn gilt 

243 =3 ? 5 oder 

P=G ? Hbzw. 

Potenz = Grundzahl T Hochzahl, 

dann gilt 

P = Exp(Log(G)*H), z.B. 

P = Exp(Log(3)x5) > 243 

P°=:3: 1:5 ist hier genauer! 

G = Exp(Log(P)/H), z.B. 

G = Exp(Log(243)/5) — 3 


G = 243 1 (1/5) ist hier ebenso ungenau! 
Hr=loaP/kEog G)rzB: 

H = Log(243)/Log(3) > 5 

Y = Sin(X) 

Y= Cos(X) 

Y= Tan(X) 


berechnen Sinus, Kosinus und Tangens des 
Winkels X im Bogenmaß (rad). Bei Verwendung 
des Gradmaßes (360 Grad) muß man das Argu- 
ment X mit Pi/180 = 0.01745.. multiplizieren. 

Y = Atn(X) 

ist der Arkustangens oder die Umkehrfunktion 
zu Tan(X). Für die Umrechnung in das Gradmaß 
muß man das Ergebnis Y mit 180/Pi = 


Peeker 1/87 





57.2957... multiplizieren. Arkussinus und -kosi- 
nus fehlen und müssen simuliert werden, Bei- 
spiele: 

Print Sin(30+Pi/180) — 0.5 

Print Tanf45x&Pi/180) > 1.0 

Print Atn(1)#180/Pi— 45.0 
Y=4xAtn(1)—Pi 

Y = sinx)/Cos(x) — Tangens 

Y = Cos(x)/Sin{x) — Kotangens 

Y = 1/Tan(x) > Kotangens 

Y = Atn(X/Sar(1-XxX)) > Arkussinus 

Y = Pi/2-Atn(X/Sar(1-X&X)) > Arkuskosinus 
Achtung: Gewisse Tangens-Argumente, z.B. 
Print Tan{Pi/2), die mathematisch unzulässig 
wären, führen bei GFABÄSIC nicht zu einer 
Fehlermeldung („Division durch Null“), son- 
dern liefern statt dessen falsche Ergebnisse! 


Y = Sar(X) 

berechnet die Quadratwurzel aus einer positi- 
ven Real- oder Integer-Zahl. Für Kubikwurzeln 
usw. muß man auf die Potenzierung mit hoch 1/ 
X zurückgreifen, z.B. 

Peint’8 } (1/3) ergibt 2. 

Übrigens ist im Gegensatz zu Taschenrechnern 
die Kehrwertfunktion 1/X nicht implementiert. 
Desgleichen gibt es keinen speziellen Quadrie- 
rungsbefehl, der in Pascal als Sqr im Gegensatz 
zu Sart vorhanden ist, doch kann man sich 
leicht mit Y = X x X (oder auch mit Mul X,X, 
5.0.) behelfen. Im übrigen gilt bis zur Kubikzahl: 
X x X schneller als X 2 

Xx*XxX schneller als X? 3 

Danach ist die Potenzierung schneller. Ferner 
ist beispielsweise Sarl(Sqr(X)) = 4. Wurzel 
schneller als X? (1/4). Bei rechenintensiven 
Programmen lohnt es sich also, mit den mögli- 
chen Befehlen zu experimentieren. 


Y% = Random(Öbergrenze%) 

erzeugt eine Integer-Zufallszahl im Bereich von 
OÖ (einschließlich) bis zur Obergrenze (aus- 
schließlich}, während 

Y = Rnd[(Dummy)] 

eine Real-Zufallszahl im Bereich von 0.0 (ein- 
schtießlich) bis 1.0 (ausschließlich), d.h. von 0.0 
bis 0.999..., generiert. Das Dummy-Argument 
kann einschließlich der runden Klammern ent- 
fallen, Beispiele: 

Print Random(100)-+1 

erzeugt Integer-Zahlen im Bereich 1 bis 100. 
Print And(1)#100+10 oder 

Print And#100+10 

erzeugt Real-Zahlen im Bereich 10.0 bis 110.0. 
Da in beiden Fällen (Random und Rnd) derselbe 
Fließkomma-Algoritnmus verwendet wird, ist 
Rnd sogar noch schneller, weil bei Random 
zusätzlich auf die Integer-Zahl abgerundet wer- 
den muß. 

Anmerkung: Der Randomize-Befehl bzw, die 
Rnd-Funktion mit Nicht-Dummy-Argument fehlt 
beim GFABASIC, so daß sich dieselbe Zufalls- 
zahlenfolge nicht ohne Tricks regenerieren läßt. 
Allerdings ist die Zufallszahlenverteilung recht 
günstig: 


Rem "Schnee" 

Do 
X%=Randon(649) 
YZ=Randon(4Bß) 
Flot X%2.Y2 

Loop 


Dieses Programm plottet wahllos Grafik-Punkte 
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auf dem Bildschirm. Nach etwa einer Stunde ist 
der gesamte Bildschirm „zugeschneit“. 


3.7.2. Vorzeichen- und Rundungsbefehle 


Diese Befehle dienen dem Runden und Abhak- 
ken der Vor- und Nachkommastellen von Real- 
Zahlen sowie der Ermittlung des Vorzeichens 
und der „Geradheit“ von Zahlen. 


Y= Abs(X) 

entfernt ein möglicherweise vorhandenes nega- 
tives Vorzeichen. Beispiele: 

Print Abs(-2) — 2 

Print Abs(10) — 10 bleibt unverändert. 

Für die Negierung einer positiven Zahl verwen- 
de man 

xX=- 

Y = Sgn(X) 

liefert das Vorzeichen (= Signum) wie folgt 
(Beispiele): 

Print Syan(+10) — 1 — positiv 

Print Sgn(-10) > -1 — negativ 

Print S9n(0) — 0 — Null 

Ein Programmfragment für Fortgeschrittene: 


Input X 

On Sen(X}+2 Gosub Minus, Null, Plus 
Rem } 2 5 
End 


Procedure Minus 
Print X " ist mlaua" 


Return 

USW. 

Y!= Even(X) 
Y! = Odd(X) 


liefern den booleschen Wert True (-1), wenn X 
gerade („even“), bzw. False (0), wenn X unge- 
rade („odd“) ist. Beispiele: 

Print Even(10) — -1 — True 

Print Odd(10) — 0 — False 

Print Even(11)—0— False 

Print Odd(11) — -1 — True 

Diese Befehle kann man vor Dpeek/Dpoke und 
Lpeek/Lpoke verwenden, um ungerade Spei- 
cheradressen zu vermeiden, 


Y = Fix(X) oder Y = Trunc(X) 

weisen der Variablen Y den ganzzahligen bzw. 
Vorkomma-Teil der Fließkommavariablen X zu 
(Fix und Trunc sind funktionsgleich), während 
Y = Frac(X) 

den Bruch- bzw. Nachkomma-Teil von X zu- 
weist. Es gilt demnach theoretisch 

X = Fix(X) + Frac(X), 

doch produziert Frac Rundungsfehler, die offen- 
bar über die üblichen Binärfehler hinausgehen 
(vgl. Peeker, 12/86, S. 68-70). Beispiele: 

X = 123.456 

Print Fix(X) — 123 

Print Frac(X) > 0.,45599999977 

Sgan(X) * Int(Abs(X)) — Fix(X) 


Y = Int(X) 

Während Fix(X) die Nachkommastellen abhackt, 
rundet Int{X) auf die nächstkleinere Ganzzahl, 
so daß Y kleiner/gleich X ist. Beispiele: 

Print Int(1.5) — 1 wie Fix 

Print Int(-1.0) — 1 wie Fix 

Print Int(-1.5) — -2 bei Fix jedoch -1 

Print Int(-2.0) — -2 wie Fix 

Auf dem Zahlenstrahl 

.. 2.0 -1.5-10 +00 +10 +15... 
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ist -2 die nächstkleinere Ganzzahl nach -1.5. Fix 
und Int unterscheiden sich also nur bei negati- 
ven Zahlen, die Nachkommastellen haben. 





Rundung auf N Nachkommastellen 

Oft möchte man auf N Nachkommastellen auf- 
runden. Dabei unterscheidet man zwischen V = 
Vorkommastellen, N= Nachkommastellen und 
G = Gesamtstellen. Den Platz für Vorzeichen 
(+/-) und Dezimalpunkt muß man gesondert 
berücksichtigen. Es bieten sich dann folgende 
Möglichkeiten an: 


Rundungsformel 

Y=Intx#10 I N+0.5)/10 N 

oder für negative Zahlen 

Y = San(X) # IntX®10 7 N+0.5)/10 TN 

wobei N für die Anzahl der Nachkommastellen 
steht. Beispiel: 

X = 123.456 

N = 2, damit 10 N = 100: 

Print Int(X®100+0.5)/100 — 123.46 

X = 123.4 

Print Ini(X®100+0.5)/100 — 123.4! 

Nachteil: Wenn weniger als N geltende Nach- 
kommastellen vorhanden sind, wird nicht mit 
Nullen aufgefüllt. Man muß deshalb mit entspre- 
chenden String-Befehlen nachhelfen. 


Defnum G 

Mit diesem Befehl wird die Gesamtstellenanzahl 
G für alle Zahlenausgaben festgelegt (| >= G 
<= 11). Beispiele: 

Defnum 5 

Print 123456.7 — 123460! 

Print 12345.6/ — 12346| 

Print 1234.567 — 1234.6|! 

Print 123.4567 — 123.46 

Print 123.456 — 123.46 

Print 123.45 — 123.45 

Print 123.4 > 123.4! 

Nachteil: Der globale Defnum-Befehl ist nur 
sinnvoll, wenn bekannt ist, ddBG -V>=N. 


Print Using “"##+#.##", X 

Dieser Befehl arbeitet mit rechtsbündig gefüll- 
ten Ausgabemasken (# = Dezimalstelle, „.“ = 
Dezimalpunkt). Beispiele: 

Print Using TH+H##.+#", 123456 —> 
"%123456“ 

Print Using "###.##", 12345 > "% 12345“ 
Print Using "#3F#. 44H", 1234.5 > "% 1234.5“ 
Print Using "##F#.##", 123.45 > "123.45" 
Print Using "#34F#.##", 123.456 — "123.46" 
Print Using "#3F#.4#4#", 12.345 > "012.35" 
Print Using "#4##.4##", -12.345 — "-12.35* 
Print Using "#H##.4#", -12.3— "-12.30" 
Nachteil: Wenn die Vorkommastellen für die 
Zahl nicht (einschließlich des automatisch be- 
rücksichtigten Vorzeichens) ausreichen, wird 
die Maskenlänge überschritten und „%" als 
Fehlermeldung vorangestellt. Dafür werden ge- 
genüber den obigen Befehlen fehlende Nach- 
kommastellen mit Nullen aufgefüllt. 


Weitere Feinheiten (Beispiele): 

Auch „+" - ganz links — ausgeben: 

Print Using "+ ###.##", 1 — "+D01.00° 
Führende Nullen mit „«" auffüllen: 

Print Using "rar. ##", 1 — "##*1.00" 
Komma für Tausenderstelle einfügen: 

Print Using "## ###.##", -1000 — 
“-1,000,00" 
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Programm-Listings 


Im Peeker, Heft 12/85, S. 68-70, haben 
wir die Ursachen binärmathematischer 
Rundungsfehler erläutert. Im Nachtrag zu 
diesem Beitrag bringen wir im folgenden 
die entsprechenden GFABASIC-Pro- 
gramme: 


Binärbruch-Umwandlung 


Dieses Programm verwandelt einen über 
Input eingegebenen Dezimalbruch, z.B. 
1234 5678 90.1234 5678 90 (maximal je 
10 Vor- und Nachkommastellen) in den 
exakten Binärbruch um, wobei der Anfang 
der Periode durch ”—” markiert wird. Die 
Anzahl der Nachkommastellen (hier Max- 
stelle % = 2000) kann erhöht werden, 
denn bei dem Dezimalbruch 0.12 345 
würde sich bereits eine 500stellige Binär- 
bruch-Periode ergeben. 


16777216 + 0.8009765625 = 16777216, 001 


BaRAnKEn KnnaKang AnanHSan KAaKanaG Auuandid Hanl1dad 
annnaann HANHHEEO ANHOHONA AORBAH0D AABdR0dıL 11110119 
DaBAAnaN HanHHanı HHHANHEg KAaanannd H0LHRNLD N0N11UAB 


REREBEELEDETTEETRIBERPERBERERTTRTTET TREE ERBE 
EEETESEERIETERTTNETETERNDRERTTEETTEREITEEEFRERRE BR 
EREERELREREERTERREPRERRERRERDRERETSERIESSTEDIRSN 


+1,000000000000000000000009294A000000000 +anasi1nnn +24 
+1,0000000000000000000000000080000000000 -OHdnntn1d -10 
+1,00 +00oLiaad +24 


+1000000000000000000000000, 0000000000000 


+8, DL 


+LO0nnnARANOANHEAONNANNDN. 0000B0NDLAND 


134217728 + 0.0009765625 = 134217728 
Bundaund AnnnBuug AuAunKUn Andnance BuguNnLG HuNL1aLi 


BanHuaRE BARSIUNE 99900008 BASSHHUN GUGL9BGL LILIDLIN 


sausudnh HenUNEEE BLHUHCHG HEALNKEN U8UBL10 BEGLIBLL 


00009009509900090000000000900000000000 1EHSGL10L1 
Kanada —1tilıalıd 
nORRLODOHKUNGAABNLONRORNNNBANDHREN LAMAHI1BLl 


+1,00 +oanielı +77 
+1,000000000000000G00N000000000080000000 -80080101d -iH 
+1.Dn80u0000BH0unuunBaunHEnnHAKnnnARD« +aunliail +77 


+i00000H0NHUN00000K00S0NONEAD, DOLLLLOUNU 
BEE ERELRRETTERTERDBERTTETERETRETRTEHTTTT 


536970912 + 8.8009765625 = 536870912 


DRKEHUNB Anaaanan HAHnuann Huandaud aanandld HAdLildL 
nanannEn Aunnnaua HAHH9LHB AAdnuAug Haunaadl 1111HL1R 
ORBELAAH HHaHKEBR HAHHAHHE AHHAHHUd HABAAKin Aallidl 


nano 10alliel 
KORHAHAAROAUNNDDANKHKKDAANNDENNARRN Aill11alld 
Donna 180 


+1.00n0ROOOORLNKOENNENHEDDLEOANKOKOnAULN +unadilldı +75 
+1 ,n00BnAnEHODNKALHKNRRLAAUnDEnnn -Aaaaalaın -1A 
+1,000000009000900000000.0000000080n +uaneilıdl +23 


»10nnaa0an0onaagonaangegnn. En 


+, 
+L00000000000000000R 00a‘. name 


04 


536870912. 080000800 


inärmathematische 
undungsfehler 





Grundrechenarten 


Bei diesem Programm gibt man zunächst 
den 1. Operanden (z. B. 1677 7216), dann 
den Operator (z. B. +) und schließlich den 
2 Operanden (z. B. 0.0009765625) über 
Input ein. Danach erfolgt eine Ausgabe der 
internen Zahlenformate wie bei den nach- 
stehenden Beispielen, die wir erneut ab- 
drucken, weil im letzten Heft die jeweils 
vorletzten Zeilen von der Reproabteilung 
irrtümlich auseinandergeschnitten wur- 
den. 


Newton-Wurzel 


Dieses Programm, das aus Platzgründen 
nur teilweise gelistet ist, zeigt Rundungs- 
fehler bei Näherungsverfahren an, und 
zwar hier am Beispiel der Quadratwurzel- 
berechnung. 


16777216.001090008 


16777216 


‚09899765625 


16777216. 001 
16777216 


«0009763625 


16777216. 001 
16777216 


‚0809763625 


16777216. 081 


134217728. 900804088 


1 


n 
uU 


i 


l 
0 
ı 


l 
8 
1 


erfaßt. 


34217728 
«0883765625 


34217728 


34217728 
‚8809765625 
34217728 


34217728 
‚0489765625 
34217728 


+0 AO0SEBSLNNOTTTERTeagnegnnggege‘g“ Ee Bit wird nur noch intern er- 
aßt 


336070912 


‚0909765625 


336870912 
536870912 


0809765625 


536870912 
536870912 


ß 


‚0889765625 


36870912 


DnBARHRLAEHABAHNLARBHHUNHAUUBARnneyauaan 


Letztes Bit wird nicht 
mehr erfaßt. 


Letztes Bit wird intern und extern 





Binärbruch-Umwandlung 


Print "Dezimal- in Binärbruch'" 
Maxstelle2=2B%9 

Dim Rest%{Maxstelle%) 

Dim Ziffer%{Maxstelle%) 


Do 
Print 
Print 
Input "Dezzahl eingeben: ",‚Dezzahl$ 
Rem -——- Vor- und Nachkommastellen -—— 


Exit If Dezzahl$="" 

I%=Instr (Dezzahl$,".") 

Exit If I%<2 !Punkt fehlt 
Vorkomma=Abs (Val (Left$(Dezzahl$,12-1))) 
Exit If Vorkomma>2}3® 

Exit If Len(Dezzahl$)=I% 
Nachkomma=Val(Mid$(Dezzahl$,1%+1)) 

Cls 


Print Int{Vorkomma);".";Int(Nachkomma) 
Print 
It Left$(Dezzahl$, 1)="-" 
Print ol: 
Endif 
Rem ———- Vorkommastellen ausgeben -—— 


Ganzzahl%=Vorkomma 
If Ganzzahl%=® 
Print "tg": 
Else 
Potenz%=1 
While Ganzzahl%>=Potenz% 
Potenz%=Potenz%*2 
Wend 
Repeat 

Potenz%=Potenz% Div 2 

If Ganzzahl%>=Potenz% 
Print MW 
Canzzahl%-Ganzzahl%-Potenz% 

Else 
Print "a: 

Endif 

Until Potenz%=1 
Endif 
Rem -—- Binärpunkt -——- 
Print "sy", 
Rem ——- Nachkommastellen —— 
Zaehler%=Nachkomma 
Nenner%=19?} (Len(Str$(Zaehler%))) 
If Zaehler%=® 
Print pe: 
lse 
Stelle%=P 
Flag%=P 
Periode%=® 
Do 

Zaehler%=2xZaehler% 

Inc Stelle% 

If Zaehler%>=Nenner% 
Ziffer#(Stelle%#}-1 
Zaehler?=Zaehler%-Nenner% 

Else 
Ziffer%(Stelle%)=ß 

Endif 

Rest%(Stelle%)=Zaehler% 

Exit If Stelle%=Maxstelle% 

Exit If Zaehler%=® 

For X%=1 To Stelle% 

If Rest%(X%)=Zaehler% 
If Stelle%<>X% 
Periode%=X% 
Flag%=1 
Endif 
Endif 
Next X% 
Exit If Flag#=1l 
Loop 
For X2=1 To Stelle% 

Print Zitferz(XR). 

If X%=Periode% 
Erinte a; 

Endif 

Next X% 
Endif 
Loop 
Glear 
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Grundrechenarten 
Dim 2(5) Zweierpotenzen 
Dim Z$(3,4) (Tabellenauszug) 
Dim P(3) +4 21494 16.0000 
Do +3 271483 8.9000 
Print +42 2atHB2 4.0000 
Input "1 Zahl :",2$ +1 24491 2.0008 
Exit If Len(Z$)=9 +8  2t+09 1.0886 
Zz(1)=Val(2Z$) -1 27-91 9.598809 
Print "+ - » / :"; -2 21-92 9.2508 
Repeat -3 27-93  08.125% 
0$=Inkey$ -4 27-84 9.0625 
Until O$="+" Or 0$="-" 
Or 0$="'gx" Or 0g= /" 
Print 0$ 
Input "2, Zahl :",25 
Z2(2)=Val(Z$) 
If 0$="+" 
2(3)=Z(1)+2(2) 
Else 
If 0$='-1 
2(3})=Z(1)-Z(2) 
Else 
If 0$="x" 
2(3)=Z(1}xZ(2) 
Else 
2(3)=Z{1)/Z{2) 
Endif 
Endif 
Endif 
Cls 
Rem #*%* Bitstrings erzeugen 
Bor.zel io 3 
Gosub Realanzeige(Z(2))} 
Z$(Z,1)=Anzeigel$ 
Z2$(Z,2)=Anzeige2$ 
2$(Z,3)=Anzeige3$ 
2$(Z,4)=Anzeige4$ 
Next Z 
Rem *** Bitstrings anzeigen 
Print 
Print Z{1);" ";0$:" 1:2); = ";Z(a);0 m; 
Print Using "rss Z(3) 
Print 


For X=1 To 3 
For Y=1l To 3 
Print 2$(Y,X);Tab(58);Z(Y) 
Next Y 
Print 
Next X 
Rem x** Punkt unter Punkt 
For X=1 To 3 
P(X)=Instr (2$(X,4),".") 
Next X 
P=Max(P(1l),P(2),P(3)) 
For X=1 To 3 
Print Spe{P-P(X));Z$(X,4) 
Next X 
Loop 
Clear 
End 


Unterprogramm Real-Binärumwandlung 


Procedure Realanzeige(Zahl) 
Rem #** Binärmasken 
Maskel$=" BBBBBRD" 
Maske2$=" 0900000" 
Maske3$='"BH00BBBB9" 
Ren #&+# Anzeigen 1 und 2 ——  — —— mn... 
Zahl$=Mkf$(Zahl) 


Bits$="" |Endlos-Bitstring 

Anzeigel$="" !aufgeteilt als 6 Bytes zu je 8 Bits 
Anzeige2$="" laufgeteilt in Mantisse + Exponent 
Anzeige3$="" Inormiert in Exponentialdarstellung 
Anzeige4$="" !umgewandelt in Nicht-Exponentialdarstellung 


For I%=1 To Len(Zahl$) 
B$=Bin$(Asc(Mid$(Zahl$,1%,1))) 
Anzeigel$=Anzeigel$+tLeft$(Maskel$,9-Len(B$) )+B$ 
Bits$=Bits$+Left$(Maske2$,8-Len(B$) }+B$ 

Next IZ 


Anzeige2$=" "+Left${Bits$,38)+" "+Right$(Bits$,1ß) 
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Rem ##+* Auswertung der Bits ---------------------- 
Mantisse$=Left$(Bits$,38) 
Exponent$=Right$(Bits$,9) 
Man_sign$=Mid$(Bits$, 1,1) 
Exp_sign$=Mid$(Bits$,39,1) 
Exp_wert%=Val("&x"+Exponent$) 
Rem #** Zahl ® ist ein Sonderfall! 
Zero_flag!=(Man_sign$="ß" And Exp_sign$="" And Exp_wert#=ß) 
If Man_sign$="1" 
Man_vorz$=t-" 
Else 
Man_vorz$="+" 
Endif 
If Zero_flag!=False 
Mid$(Mantisse$,1,1)="1" 
Endif 
If Zero_flag!=True 
Exp_vorz$="+" 
Else 
If Exp_sign$="1" 
Exp_vorz$="+" 
Else 
Exp_vorz$="-" 
Exp_wert%=512-Exp_wert% 
Endif 
Endif 
Exponent$=Bin$ (Exp_wert#) 
Exponent$=Left$(Maske3$, 9-Len (Exponent$) })+Exponent$ 
Rem #*+* Anzeige 3 --—---------- - - - ————— — zpıp1}1}17ı nn _- 
Anzeige3$=Man_vorz$+tLeft$ (Mantisse$, 1}+r"."+Mid$(Mantisse$, 2,37) 


Anzeige3$=Anzeige3$+" "+Exp_vorz$+Exponent$ 
Anzeige3$=Anzeige3$+" "+Exp_vorz$+Str$(Exp_wert%) 


Rem *** Anzeige 4 
Anzeige4$=Man_vorz$ 
If Zero_flag!=True 


Anzeige4$=Left$(Mantisse$, 1}+"."+Right$(Mantisse$, 37) 


Else 
If Abs{Exp_wert%)<38 
If Exp_vorz$="+" 





For I%=1 To Len{Mantisse$) 
Anzeige4$=AnzeigeA$+Mid$ (Mantisse$,I%,1) 


If IZ=Exp_wert%rl 


Anzeige4$=Anzeiged$hr", " 


Endif 
Next IZ 
Else 
For I%=1 To Exp_wert% 


Anzeige4d$=Anzeige4dgr" m 


If I%= 
Anzeige4$=Anzeige4$+"," 
Endif 
Next IZ 
Anzeige4$=Anzeige4$+Mantisse$ 
Endif 
Else 
Anzeige4$=Anzeige4d$+" zu groß" 
Endif 

Endif 
Return 
Newton-Wurzel 
(Listing-Auszug) Zahlenformate im Vergleich 

slmanBde 1PHAdl GFA +3,0 

Input "Radikand: ",R 1199808 B1OBHHLD DRI 
S=Sqr({R) BıBaBnap 1B80WB01B AS 
Print "S = SOR(";R;") = ";5 BaBnBed IPB GFA +1.9 
W=R !W=Wurzel 10800008 A1lBBBgyl DRI 
= !V=Vorher-Wurzel Bade 100009081 AS 
z-ß !Z-Zähler Dpanaad Maddede GFA +9.9 
Do BRBBBe Bedadande DRI 

W=(W+R/W)/2 Bandes BRDBBBBB AS 

ine’ Hoadeeee Mlllllll11l GFA +9.5 

Exit If V=W Or Z=1000 18800000 AlBAdand DRI 

VW Rdn 199000098 AS 
Loop Baadee VBLL111111d GFA +9.25 
Gosub Anzeige 10998809 Bwılllılll DRI 
K=1.BE-11 !K=Konstante BRaBaadh ö1llllıl AS 
W=R IW=Wurzel SnnaBddd HL11llllldl GFA +9.125 
v=ß IV=Vorher-Wurzel ILBRB898 ÖB11111@ DRI 
zB IZ=Zähler BB B111111® AS 
Do Bıllıl0d 1PBRBBBID GFA +7.875 

W=(W+R/W) /2 11111198 AlBRABBILl DRI 

Ine 2 B1111199 ıd8BaA1l1 AS 

Exit If Abs(V-W)<K Or Z=1ß00 11111100 1dsdRddıe GFA -7.875 

VW 11111198 11089811 DRI 
Loop 11111188 188068811 AS 
Gosub Anzeige Mantisse Exponent 


Bücher 


Westermann-Reihe Informatik 
Lern- und Arbeitsbuch 

mit Programmbeispielen in BASIC 
von H.-G. Schumann 

1986, 107 S., kart., DM 9,80 
Westermann Schulbuchverlag, 
Braunschweig 

Gliederung 

Zahlen und Zählen - Algoritnmen — 
Ein-, Ausgabe und Verarbeitung — 
Aufbau eines Heimcomputers — 
Ein BASIC-Programmbeispiel - 
Programmieren — Wiederholungen 
— Verfahren und Unterprogramme 
— Sammeln von Daten — Auswer- 
ten von Daten — Ein Kartei-Pro- 
gramm — Ein- und Ausgabe von 
Daten - Sichern und Laden — Ord- 
nen und Suchen - Ändern und Lö- 
schen - Verbesserungen des Kar- 
tei-Programms - Zusammenfas- 
sung, Begriffs- und Befehlstexikon 
= egister 

Bemerkungen 

Das Buch ist als Grundlage für den 
Informatik-Unterricht oder für das 
Selbststudium geeignet. Ausge- 
hend von den Grundbecgriffen der 
Informatik wird der Leser stufen- 
weise mit Befehlen, Verfahren und 
Prozeduren vertraut gemacht. Die 
Programmbeispiele werden in BA- 
SIC angeführt, Aufbau und Struk- 
turierung der Programme oder 
Programmteile werden zuvor je- 
weils in Pascal-ähnlichen Ablauf- 
plänen entwickelt. Am Ende des 
Buches liegt ein vollständiges Kar- 
tei-Programm in BASIC vor, das 
zuvor schrittweise erarbeitet wur- 
de. Aufgaben am Ende jedes Kapi- 
tels dienen der Vertiefung des Er- 
lernten und leiten zum eigenen 
Programmieren an. Eine interes- 
santere Gestaltung, etwa durch 
farbige Abbildungen, Hervorheben 
wichtiger Abschnitte usw. dürfte 
dazu beitragen, daß es mehr Spaß 
macht, mit Hilfe dieses Buches in 
die Gedankenwelt der Informatik 
einzusteigen. Allerdings müßte 
man dazu sicher tiefer in die Ta- 
sche greifen. 


Westermann-Reihe Informatik 
Logo Lern- und Arbeitsbuch 
von J. Ziegenbalg 

1986, 152 S., kart., DM 9,80 
Westermann Schulbuchverlag, 
Braunschweig 

Gliederung 

Grundelemente des Programmie- 
rens — Grundlegende Program- 
miertechniken — Aus der Teilbar- 
keitslehre — Brüche und Anwen- 
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dungen - Funktionen, Wertetafeln, 
Schaubilder — Simulation zufälliger 
Ereignisse 

Bemerkungen 

Dieses Buch setzt Grundlagen der 
Informatik und Kenntnisse über 
den Umgang mit dem Computer 
voraus. Es vermittelt dem Leser 
den Einstieg in die Programmier- 
sprache Logo anhand von Pro- 
grammtbeispielen für den Commo- 
dore 064. Da Logo recht geräteun- 
abhängig ist, laufen die meisten 
Programme auch auf dem Apple Il 
und Apple-Kompatiblen. 
Allgemeine Programmiertechniken 
und Logo-spezifische Befehle 
werden an Beispielen verdeutlicht 
und durch Aufgaben aus den Be- 
reichen Mathematik und Wirtschaft 
erlernt. 


Hans-Peter Wagner = 


Bix 
auf Ihrem PC 


EEE 


Baier 7 | 


(Ö) Hüthig 


BTX auf Ihrem PC 

von H.-P. Wagner 

1986, 220 S., 100 Abb., kart., DM 
45,— 

Dr. Alfred Hüthig Verlag, Heidel- 
berg 

Gliederung 

Einleitung — Der PC im BTX-Ge- 
samisystem — Einsatzmöglichkei- 
ten des PC im BTX-Gesamtsystem 
— Die PC-Ausstattung für BTX - 
Der Einführungsprozess von BTX 
auf dem PC - Ausblick — Anhänge: 


Gebühren, Institutionen, Hard- 
warehersteller, Software, Fach- 
wort-, Stichwort-,  Literaturver- 
zeichnis 

Bemerkungen 


Bildschirmtext (BTX) und Personal 
Computer (PC) sind die beiden 
neuen Technologien, die einer 
breiten Masse von Anwendern 
elektronische Datenverarbeitung 
und Kommunikation nahebringen 
werden. Dieses Buch bietet in all- 
gemeinverständlicher Sprache In- 
formationen über beide Bereiche. 
Die Vorteile des Zusammenwir- 
kens beider Systeme in einem PC- 


BTX-Gesamtsystem werden ein- 
gehend erläutert und praktische 
Konzepte zur ihrer Realisierung 
dargestellt. Der Autor bespricht die 
Standards, die von der Post zum 
Einsatz von BTX vorgeschrieben 
sind und die Auswahl der Hard- 
ware beeinflussen, Standardsoft- 
ware und Peripheriegeräte. Im Ka- 
pitel 5 wird der Einführungspro- 
zess von BTX auf dem Personal 
Computer behandelt. Ansprech- 
partner des Systems, Organisa- 
tion, Programmentwicklung, Ko- 
stenfragen und eine optimale Ge- 
staltung des BTX-Informationsan- 
gebots werden gründlich analy- 
siert, um den Einsteigern in diese 
Technologie echte Hilfestellung zu 
leisten. Ein umfangreicher Anhang 
informiert über Gebühren, BTX-In- 
stitutionen, fertige BTX-Software, 
Hard- und Softwarehersteller. Ein 
Literaturverzeichnis und ein Ver- 
zeichnis der Abkürzungen und 
Fachausdrücke runden das Hand- 
buch ab. 


Die Prozessoren 68000 und 
68008 

Rechnerarchitektur und Sprache 
im NDR-KLEIN-Computer 

von R.-D. Klein 

1986, 543 S., 530 Abb., geb., DM 
78- 

Franzis Verlag, München 
Gliederung 

Der NDR-KLEIN-Computer — Das 
Grundprogramm 68K — Versuche 
mit dem Grundprogramm — Pascal/ 
S - Gosi, ein Compiler für den 
68000/68008 - Betriebssysteme 
und Disketten-Laufwerke — Die 
Baugruppen — Anhang 
Bemerkungen 

Dieses Buch ist für Leser gedacht, 
die bereits Kenntnisse der Mikro- 
computertechnik mitbringen; ihnen 
bietet das Buch eine Fülle von In- 


formationen über Hardware, Soft- 


ware und dazugehörige Periphe- 
rietechnik der Prozessoren 68000 
und 68008. Als Hilfsmittel zum Zu- 
gang zur 16-Bit-Technologie dient 
dabei der NDR-KLEIN-Computer, 
ein modularer Computer, der 
durch den Einbau neuer Baugrup- 
pen stets auf dem aktuellen Stand 
der Technik steht. In Kapitel 7 des 
Buches werden alle Schaltpläne, 
Baugruppen, ihr Aufbau und Test 
besprochen, so daß ein Selbstbau 
dieses Computers möglich ist. 

Zu Beginn lernt der Leser den Um- 
gang mit dem Grundmenü und 
dem Texteditor, dann erfolgt eine 
schrittweise Einführung in die As- 
semblerprogrammierung des 
68000/8 mit Programmlistings und 
Übungsaufgaben. Erst nachdem 
so Verständnis für die Funktions- 


weise der Prozessoren geschaffen 
wurde, folgt ein Kapitel über die 
Programmierung in den höheren 
Programmiersprachen Pascal/S 
und Gosi. In Pascal/S — der Be- 
fehlsschatz stellt eine Teilmenge 
der Pascal-Befehle dar — werden 
die anspruchsvollen Aufgaben 
„Türme von Hanoi“ und das Simu- 
lationsprogramm „Mondlandung” 
aufgearbeitet. Gosi (von „Grafisch 
orientierte Sprache I") ist eine Lo- 
go-ähnliche Compilersprache, de- 
ren Compiler die Programme in 
68000/68008-Assemblerprogram- 
me Übersetzt. 

Das Kapitel über Diskettenlaufwer- 
ke und Betriebssysteme gibt zu- 
nächst allgemeine Informationen, 
dann geht es tiefer in die Materie: 
Mikrodos, ein einfaches Disk-Ope- 
rating-System, wird als Ässem- 
blerlisting dargestellt und erläutert. 
Im Anhang findet der Leser das 
Assemblerlisting des Uhniversal- 
Formatieres, Befehlsübersichten 
über die Befehle des Grundpro- 
gramms und die Pascal/S-, Gosi- 
und 68000/68008-Befehle. Es fol- 
gen Schemazeichungen der ver- 
wendeten ICs, ein Literatur-, Fach- 
wort- und Stichwortverzeichnis. 


Anwenderbuch CP/M-68K 
Einstieg in das Betriebssystem für 
die 68000-Familie 

von J. Plate 

1986, 144 S., kart., DM 48,— 
Franzis Verlag, München 
Gliederung 

Eigenschaften und Dienste des 
CP/M-86K- Texteditor ED- CP/M- 
68K- Assembler und Hilfskom- 
mandos - Dynamic Debugging 
Tool DDT-68K - CP/M-68K- 
Schnittstelle - Das BIOS - Der C- 
Compiler - BIOS-Listing für NDR- 
KLEIN-Computer — Sachwortver- 
zeichnis 

Bemerkungen 

Dieses Handbuch bietet den Be- 
nutzern des Systems die wichtig- 
sten Systeminformationen und er- 
leichtert den Einstieg in das Dis- 
kettenbetriebssystem CP/M-68K. 
Es kann das Systemhandbuch 
nicht ersetzen und gibt auch keine 
Einführung in die Programmierung 
des 68000 oder in die Program- 
miersprache C. Dafür gibt es ande- 
re Bücher, die sich ausschließlich 
mit diesen Themen befassen und 
genannt werden. 

Das Anwenderhandbuch be- 
schreibt zunächst alle Komman- 
dos, ihre Aufrufstruktur und Be- 
deutung und erklärt dann den Um- 
gang mit dem Texteditor. Auf die- 
ser Basis ist die Entwicklung eige- 
ner Programme mit dem ÄAssem- 
bler AS68 und dem DDT-63K-De- 
bugger möglich. Hintergrundinfor- 
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mationen liefern die Kapitel über 
die CP/M-68K-Systemschnittstelle 
und das BIOS; als Beispiel für ein 
BIOS wird im Anhang das vollstän- 
dige BIOS für den NDR-KLEIN- 
Computer aufgelistet. 
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Logo auf dem Spectrum 

von E. Hölscher 

1986, 92 S., kart., DM 24,— 

Dr. Alfred Hüthig Verlag, Heidel- 
berg 

Gliederung 

Grundlagen — Einfache Prozedu- 
ren — Ein Mathematik-Programm — 
Verbesserungen — Statistik — Der 
Speicher — Der Drucker — Grafik 
und Mathematik — Selbstdefinierte 
Grafikzeichen — Mathematische 
Funktionen — Anhang, Sachwort- 
verzeichnis 

Bemerkungen 

Dieses Buch vermittelt dem Leser, 
der nur die Grundlagen aus dem 
Logo-Handbuch mitbringen muß, 
die Struktur und die vielfältigen 
Möglichkeiten der Programmie- 
rung mit Logo. Das verwendete 
Sinclair-Logo unterscheidet sich 
nur wenig von der ursprünglichen 
Logo-Idee und eignet sich deshalb 
besonders gut zur Einführung in 
diese Sprache, die dank ihrer An- 
schaulichkeit schon von Kindern 
erlernt werden kann. Mit diesem 
Buch kann sich der Leser solide 
Kenntnisse in Logo aneignen. Von 
dieser Basis aus gelingt es ihm 
schnell, eigene Programmideen zu 
entwickeln und in die Tat umzuset- 
zen. 


Was Sie über Software wissen 
sollten 

Die Handhabung der Software in 
Wirtschaft und Industrie 

von F. Haugg 

1985, 215 S., geb., DM 38,- 
Franzis Verlag, München 
Gliederung 

Einführung — Problemstellung — 
Was man wissen muß, um den 
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Computer zu verstehen — Der Ein- 
satz der Software: Personalverwal- 
tung, Lohn- und Gehaltsabrech- 
nung, Bürosysteme, CAD/CAM, 
Ingenieurmäßige Berechnungen, 
Prozeßrechner — Wie es mit der 
Software weitergeht — Stichwort- 
verzeichnis — Literatur 
Bemerkungen 

In seiner Einführung beschreibt 
das Buch auf amüsante Weise eine 
Situation, die typisch ist für viele 
Entscheidungsträger in Wirtschaft 
und Industrie: Ein Manager ent- 
schließt sich für den Computerein- 
satz zur Lösung seiner Aufgaben 
und erlebt dabei zahlreiche Proble- 
me, Lösungen und neue Proble- 
me. Was der Software-Benutzer 
wissen sollte, um in Zusammenar- 
beit mit Softwarehäusern die je- 
weils optimale Software zu erhal- 
ten, erfährt er aus diesem Buch. 
Von der Problemstellung über Pro- 
grammiersprachen, Betriebs- und 
Datenbanksysteme bis zum Soft- 
ware-Engineering und der Quali- 
tätssicherung werden hier Zusam- 
menhänge verständlich gemacht 
und Begriffe erklärt. Dann werden 
die Möglichkeiten des Software- 
Einsatzes in verschiedenen Berei- 
chen der Wirtschaft erläutert. Den 
Abschluß bildet ein Kapitel über 
Roboter und künstliche Intelligenz. 
Dieses Buch stellt für den ange- 
sprochenen Personenkreis eine 
einfach verständliche Einführung in 
den Softwarebereich dar. Wer sich 
detaillierter über Softwarekonzep- 
tionen für bestimmte Anwen- 
dungsprobleme informieren möch- 
te, muß allerdings nach spezielle- 
rer Literatur greifen. 


Sybex Ratgeber dBASE Il 

von Dr. G. Renner 

1986, 355 S., geb., DM 55,- 
Sybex Verlag, Düsseldorf 
Gliederung 

Allgemeine Einführung — Daleien, 
Felder, Variablen — Syntax, Aus- 
drücke und Operatoren — Mathe- 
matische Funktionen — Datums-, 
Zeitfunktionen — Konvertierungs- 
und Testfunktionen — Befehle zur 
Erstellung und Bearbeitung von 
Datenbank-Dateien — Befehle zur 
Bearbeitung anderer Dateien — 
Auswahl eines Datensatzes — Hin- 
zufügen von Daten - Editieren von 
Daten — Ausgabe von Daten — 
Hilfsinformationen — Speicherva- 
riable — Programmierung — Geräte- 
Steuerung — System-Parameter — 
Anhang 

Bemerkungen 

Das Buch wurde für Anwender und 
Programmierer des Datenverwal- 
tungsprogramms dBASE Il ge- 
schrieben, die schnelle Detail-In- 
formationen zu bestimmten Pro- 





blemen benötigen. Der Ratgeber, 
dem die deutsche Version 2,41D 
von dBASE II zugrunde liegt, ver- 
steht sich als Nachschlagewerk 
und Ergänzung zum dBASE-II- 
Handbuch. Dementsprechend ist 
der Aufbau des Buches nach An- 
wenderbereichen gegliedert: Nach 
einer allgemeinen Einführung in 
Leistung und Sprachelemente 
werden die Funktionen und Befeh- 
le von dBASE Il einzeln bespro- 
chen. Die einheitliche Gliederung 
in Aufgabenbeschreibung, Syntax, 
Anmerkungen, Beispiel und Quer- 
verweise erleichtern die Handha- 
bung des Nachschlagewerks. Je- 
dem Sprachelement wird in der 
Kopfzeille eine Funktionsgruppe 
und ein entsprechendes Symbol 
zugeordnet. Innerhalb dieser Funk- 
tionsgruppen sind die Sprach- 
elemente alphabetisch geordnet. 


Das Referenz-Manual für den 
Applesoft-BASIC-Program- 
mierer 

1986, 352 S., Spiralheftung, DM 
69,50 

Addison-Wesley Verlag (Deutsch- 
land), Bonn 

Gliederung 

Vorwort — Allgemeine Informatio- 
nen — Variablen und Arithmetik — 
Die Steuerung des Programmab- 
laufs — Strings und Arrays — Ein- 
und Ausgabe — Grafik — Spezielle 
Applesoft-Befehle — Anhangskapi- 
tel: A: Zusammenfassung der Be- 
fehle - B: Syntaxdefinitionen — C: 
ASCII-Zeichencodes — D: Reser- 
vierte Wörter — E: Fehlermeldun- 
gen — F: PEEKs, POKEs und 
CALLs - G: Programme effektiver 
machen — H: Internes über Ap- 
plesoft — |: Ausgabeformate über 
Zahlenwerte — J: Der Bildschirm- 
editor - K: 40/80-Zeichen-Darstel- 
lung — L: Unterschiede zu Integer 
BASIC - M: Betrieb mit einem 
Cassettenrecorder -— N: BASIC 
und die Maus — Glossar — Index — 
Referenztabelle 

Bemerkungen 

Die deutsche Ausgabe des ameri- 
kanischen Originals wurde von 
Mitarbeitern der Firma Apple 
Deutschland erweitert und auf den 
neuesten Stand gebracht. Das Ma- 
nual baut auf den Apple-Benutzer- 
handbüchern und dem Applesoft- 
Tutorial auf und ist als Handbuch 
und Nachschlagewerk für die Pro- 
grammiersprache Applesoft-BA- 
SIC gedacht. Erfahrene Program- 
mierer werden v.a. auf die vollstan- 
dige Beschreibung aller Applesoft- 
Befehle in Anhang A und die Refe- 
renzkarte zurückgreifen. Die Refe- 
renziabelle besteht aus einem ab- 
trennbaren Karton mit einer Über- 
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sicht über den Applesoft-Sprach- 
umfang: darin sind die wichtigsten 
Applesoft-Befehle und Funktionen, 
Variablendefinitionen, Programm- 
operationen, die arithmetischen, 
logischen und relationalen Opera- 
toren aufgeführt. Im Referenz-Ma- 
nual werden alle Befehle von Ap- 
plesoft zusammen mit ihren Gültig- 
keitsbereichen, syntaktischen De- 
finitionen und Funktionsbeschrei- 
bungen erläutert. Jeder Befehl 
wird durch ein Kurzbeispiel ver- 
deutlicht. Hinweise auf Ausnahme- 
bedingungen, die im Applesoft Tu- 
torial nicht erwähnt wurden, wer- 
den hier aufgeführt. Querverweise 
und Kurzinformationen am Tex- 
trand ergänzen die Befehlsbe- 
schreibungen, besondere Hinwei- 
se werden grau unterlegt. Das Re- 
ferenz-Manual ist zwar nicht als 
Lehrbuch konzipiert, doch sind die 
Kapitel nach Funktionsbereichen 
gegliedert und behandeln inhaltlich 
zusammengehörende Applesoft- 
Befehle. Die Anhangskapitel F, G 
und H sind für fortgeschrittene 
Programmierer interessant: An- 
hang F beschreibt Syntax und 
Funktion der wichtigsten speziel- 
len Funktionen des Apple, die man 
von einem Applesoft-Programm 
aus durch PEEK, POKE oder CALL 
aufrufen kann. Anhang G befaßt 
sich mit der Optimierung von BA- 
SIC-Programmen (Speicherplat- 
zersparnis und Ausführgeschwin- 
digkeit). Details der inneren Ope- 
rationsweise von ÄApplesoft erfährt 
der Leser aus Anhang H: Die Spei- 
cherbelegung des Apple, der Auf- 
bau der Variablentabelle, die Bele- 
gung der Zero-Page und die Liste 
der Applesoft-Tokens werden hier 
behandelt. Die im Text verwende- 
ten Fachausdrücke werden im 
Glossar erklärt. 


Applesoft Tutorial 

1986, 303 S., Spiralheftung, DM 
89,50 

Addison-Wesiey Verlag (Deutsch- 
land), Bonn 

Gliederung 

Einführung: Programmieren lernen 
— Einführung in Applesoft — Ele- 
mentare Programmierung — Kor- 
rektur von Programmen - Grafik — 
Strings und Arrays — Anhang A: 
Zusammenfassung der Befehle - 
Anhang B: Reservierte Wörter in 
Applesoft -— Anhang C: Fehlermel- 
dungen — Anhang D: Hilfestellun- 
gen — Anhang E: Weitere Program- 
me — Anhang F: BASIC und die 
Maus — Glossar — Index 
Bemerkungen 

Dieses Buch ist die deutsche 
Übersetzung der englischen Origi- 
nalausgabe des Tutorials aus dem 
Hause Apple. Das Applesoft Tuto- 
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rial ist ein Einführungskurs in BA- 
SIC für den Apple Ile und Ilc zu- 
sammen mit dem neuen Apple-Il- 
Betriebssystem ProDOS. Es wen- 
det sich an Programmieranfänger, 
die bisher nur das Benutzerhand- 
buch ihres Apple gelesen haben 
und jetzt die Programmiersprache 
BASIC kennenlernen möchten. 
Das Handbuch liefert Keine voll- 
ständige Dokumentation von Ap- 
plesoft oder den ProDOS-Befeh- 
len. Aus Gründen der Übersicht- 
lichkeit fehlen einige Dinge, die für 
einen Anfänger noch nicht unbe- 
dingt wichtig sind. Aufbauend auf 
dem Applesoft Tutorial findet man 
im Applesoft BASIC Programmer’s 
Reference Manual eine genaue 
und vollständige Beschreibung al- 
ler Applesoft-Befehle, viele nützli- 
che Programmierbeispiele, Tips 
und eine Reference Card. Alle Pro- 
DOS-Kommandos werden im 
Buch „BASIC Programmieren mit 
ProDOS“ ausführlich beschrieben. 
Kapitel 1 des Tutorials erläutert 
einfache Befehle zur Ausgabe von 
Text, Berechnungen und Grafik. In 
Kapitel 2 werden Direkt- und Pro- 
grammodus und die Abspeiche- 
rung von Programmen auf Diskette 
besprochen. Programmschleifen, 
Kommentare und die Formatierung 
der Ausgabe werden erlernt. Im 
nächsten Kapitel werden die ver- 
schiedenen Möglichkeiten zur Ver- 












änderung von Programmen behan- 
delt. Kapitel 4 erklärt, wie man Gra- 
fik, Geräusche und Zufallszahlen 
erzeugt und Unterprogramme be- 
nutzt. Im letzten Kapitel werden 
Zahlenfolgen (Strings) und Felder 
(Arrays) angeschnitten. 


Die Gestaltung des Applesoft- 
Handbuchs ist sehr übersichtlich. 
In der Fußzeile werden das aktuel- 
Ie Kapitel und Thema angegeben. 
Am Textrand ist Platz für Ergän- 
zungen, Zusammenfassungen, 
wichtige Hinweise und Bemerkun- 
gen des Lesers. Wichtige Stellen 
im Text werden am Rand beson- 
ders gekennzeichet. Am linken 
Textrand fassen Anmerkungen in 
kleinerem Schriftgrad wichtige In- 
formationen zusammen und geben 
Querverweise. Beim späteren 
Nachschlagen oder bei der Suche 
nach wichtigen Befehlen und ihrer 
Syntax erweisen sich diese Stellen 
als besonders nützlich. Grau Uun- 
terlegte Kästchen enthalten Wie- 
dergaben von Bildschirminhalten 
oder wichtige Hinweise zu den Ka- 
piteln. 


Nach dem Abschluß inhaltlicher 
Einheiten schlagen die Autoren so- 
gar Pausen vor, die dem Program- 
mier-Neuling Zeit zum „Verdau- 
en" des Stoffes geben sollen. 

Am Ende jedes Kapitels folgt eine 
kurze Zusammenfassung, in der 


u 
Dousble- Ei ires- Tools von Matthias Meyer 


Zwei preisgünstige Programmpakete für doppelt-hochauflösende Grafik auf dem Apple Ilc und Ile (mit 64K-Karte): 


DHGR-Tool für Applesoft 


Diskette und Manual, Einführungspreis DM 23,— 


alle neuen Befehle, Fehlermeldun- 
gen, Fachtermini etc. aufgelistet 
werden. 

Die mitgelieferte Begleitdiskette 
enthält alle im Buch ausführlich be- 
sprochenen Beispielprogramme. 
Darüber hinaus findet man 4 weite- 
re Programme, 
Programmiertips geben und z.T. 
Unterprogramme liefern, die in je- 
des Applesoft-Programm einge- 
baut werden können. 

Das Tutorial wendet sich an BA- 
SIC-Einsteiger. Dieser Gruppe 
vermittelt es in leichtverständlicher 
Sprache die Grundlagen der BA- 
SIC-Programmierung und das Ver- 
ständnis für die „Denkweise“ des 
Compufers. 


Der Schuhlöffel zum Computer 
von P. v. Eynern 


1986, 160 S., zahlreiche Abb., 
geb., DM 22,— 

Universitas Verlag, München 
Gliederung 


Teil 1: Die Anwendung: Erste Vor- 
stellung und Probe — Lehrer ohne 
Schlaf und Launen — Die Druckerei 
im Computer — Helfer im Ge- 
schäftsbetrieb — Innenleben mit 
Nullen und Einsen — Speicher für 
Impulse — Ein wenig über das Pro- 
grammieren — Unix- ein modernes 
Betriebssystem — Bildschirmzeich- 
nen - C.A.D. Teil 2: Die Technik: 


die zusätzliche: 


Die wundersame Kraft - Elektrizität 
schafft Elektronik — Rechenma- 
schinen elektrisch bis elektronisch 
- Die logische Entscheidung - 
Speicherbausteine - Rechen- 
werke 

Bemerkungen 

Dieses Buch hat sich zum Ziel ge- 
setzt, die „Schwellenangst” vor 
dem Umgang mit dem Computer 
abzubauen. Hauptursache für die 
distanzierte Haltung gegenüber 
dem Computer ist oft die Furcht 
vor dem Erarbeiten eigener Pro- 
gramme. Deshalb eröffnet der Au- 
tor dem Leser den Zugang zum 
Computer über die Anwendung 
fertiger Programme am Beispiel 
kommerzieller Lernprogramme. In 
einfacher Sprache vermittelt er die 
Grundlagen von Aufbau und Be- 
dienung eines Computersystems, 
führt den Leser in die Welt des 
binären Rechnens und der Infor- 
mationsspeicherung ein. Am Bei- 
spiel von BASIC-Befehlen wird 
das Erstellen eigener Programme 
erklärt. Der Autor erläutert, was 
Textverarbeitungssysteme, Menüs 
und Masken leisten können und 
stellt Anwendungen des Unix-Be- 
triebssystems und CAD vor. Im 
zweiten Abschnitt werden die ma- 
thematischen und physikalischen 
Grundlagen der Computeriechnik 
anhand zahlreicher Abbildungen 
und Schaltbilder erläutert. 


DHGR-Tool für Kyan-Pascal 


Diskette und Manual, Einführungspreis DM 28,— 


Diese Ampersand-Programmsammlung für Double-Hires und 
-Lores läuft unter Applesoft, und zwar sowohl unter DÖS 3.3 als 
auch unter ProDOS. Unter anderen wurden folgende Befehle imple- 
mentiert: 


&1 und &2 wählen 1. und 2. Zeichensatz, 

&CLEAR löscht die DHGR-Seite, 

&COLOR= und &HCOLOR= wählen Double-Lores/Hires-Farben, 
& DRAW und &XDRAW zeichnen DHGR-Shapes, 

& DRAW AT zeichnet Grafikbeschriftungen (ASCIl-Strings), 

&GR, &HGR, &H, &TEXT, &T usw. schalten verschiedene Grafik- 
und Text-Modi ein, 

&HLIN und &VLIN plotten waagrechte und senkrechte Double- 
Lores-Linien, 

&HPLOT und &XHPLOT plotten DHGR-Linien, 

&SCALE= und &ROT bestimmen Größe und Rotation von Shapes, 
&LOAD und &SAVE laden und speichern Grafikseiten, 

&HELP zeigt alle Befehle an, 

&PRINT: Schnittstelle für Superdump aus Peeker 6/85 

und vieles mehr. 
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Das Kyan-Pascal-Tool umfaßt ähnliche Prozeduren wie die neben- 
stehenden Ampersand-Routinen, wobei jedoch noch einige Beieh- 
le, z.B. Procedure Swaphires, Background, Circle usw., sowie eini- 
ge Datentypen, z.B. Shape, Chrset usw. zusätzlich aufgenommen 
worden sind. 


Bei dem Kyan-Tool sind die Zeichensätze und die „Lookup“-Tabel- 
len für die sehr schnellen Plotbefehle auf die 64K-Karte gelegt wor- 
den, und das Hauptmodul selbst befindet sich in der Bank 2 der 
Language-Card, ohne Kix-Reboot zu zerstören. Damit eignet sich 
dieses Kyan-Modul besser als andere Kyan-Grafik-Programme zur 
Einbindung in eigene Anwendungsprogramme. 





Besondere Merkmale beider Utilities: 


— Grafikbeschriftungen in acht Richtungen und beliebiger Größe 
möglich 

— Verwaltung zusätzlicher Grafikseiten in der zweiten 64K-RAM- 
Bank. 

— Alle Programmteile und Tabellen residieren außerhalb des 
BASIC- bzw. Pascal-Arbeitsbereichs. 
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Schach dem Apple 


Schachprogramm CHESS 7.0 


getestet von Dr. Peter Abel 
1. Gegenstand 


Mit CHESS 7.0 von Larry Atkin (u.a. Co- 
autor von CHESS 4.6, das 1977 in Toronto 
Computer-Schachweltmeister wurde) bie- 
tet die Firma Odesta das neben SARGON 
(Fa. Hayden) wohl bekannteste Schach- 
programm für den Apple Il+/e/c in der 
Preisklasse von DM 100,- bis DM 150, — 
an. Im Lieferumfang enthalten sind ein 
ausführliches Handbuch, das eigentliche 
Schachprogramm sowie 32 Schachpartien 
und 8 Schach-Problemstellungen, die auf 
der Rückseite der Programmdiskette ab- 
gespeichert sind und mit CHESS 7.0 
nachgespielt bzw. gelöst werden können. 
Die Handhabung von CHESS 7.0 ist denk- 
bar einfach, denn es werden lediglich zwei 
Cursor-Tasten und die Return-Taste (bzw. 
Paddlie) für die menügesteuerte Eingabe 
aller Funktionen und Züge benutzt; da- 
durch ist es allerdings nicht möglich, Züge 
in der entsprechenden Schachnotation 
einzugeben. 


2. CHESS 7.0 als Spielgegner 


Zur Steuerung der Spielstärke von 
CHESS 7.0 stehen insgesamt 15 Spielstu- 
fen zur Verfügung (0-8 und A-F), durch die 
u.a. festgelegt wird, wieviele Halbzüge das 
Programm in der Regel vorausberechnen 
soll. Die für die einzelnen Spielstufen an- 
gegebenen Durchschnittszeiten für die 
Berechnung eines Zuges sind allerdings 
mit Vorsicht zu genießen: abhängig von 
der jeweiligen Stellung der Figuren kön- 
nen aus den erwarteten 5 Minuten durch- 
aus auch 50 oder mehr Minuten werden. 
Deshalb kommen für ein Spiel gegen 
CHESS 7.0 — wenn man nicht gerade 
mehrere Tage Zeit für eine Partie hat — 
auch nur die Spielstufen 0-7 bzw. A-C In 
Frage. 
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Gerade für den Hobby-Schachspieler wira 
ein Spiel gegen CHESS 7.0 am Anfang in 
der Regel wenig erfreulich sein, wenn er 
sich nicht zur Sicherheit auf eine niedrige 
Spielstufe beschränkt. Er wird nämlich 
meistens sehr schnell durch Figurenverlu- 
ste in einem quantitativen und qualitativen 
Nachteil sein, da CHESS 7.0 — wie viele 
andere Schachprogramme auch - strate- 
gisch primär auf Figurengewinn ausgelegt 
ist. Es nutzt jeden Zugfehler des Spielers, 
der für das Programm in wenigen Zügen 
zu einem Figurengewinn führt, erbar- 
mungslos aus. Glücklicherweise gibt es 
dann die Möglichkeit, Züge zurückzuneh- 
men und dafür andere, hoffentlich bessere 
Züge zu probieren, das Programm Zug- 
vorschläge machen zu lassen oder einfach 
die Seiten zu wechseln. Und wenn nichts 
mehr hilft, dann gibt es immer noch den 
Geräte-Netzschalter! 

In der (kurzfristig) quantitativ orientierten 
Spielstrategie liegt gleichzeitig die Chan- 
ce, gegen CHESS 7.0 zu gewinnen, in- 
dem man sich für eine längerfristig ausge- 
richtete Strategie entscheidet, die viel- 
leicht sogar mit einem Figurenopfer zum 
Erringen eines qualitativen Vorteils ver- 
bunden ist. 


Für die Eröffnung des Spiels sollte man 
zumindest Grundkenntnisse in der Theo- 
rie besitzen, insbesondere dann, wenn 
man sich für eine der bekannten Standard- 
eröffnungen entscheidet, da CHESS 7.0 
auf eine Eröffnungsbibliothek zurückgreift. 
Hat man einmal das Endspiel einigerma- 
Ben ungeschoren erreicht, so kann man 
sich fast schon gratulieren, denn in diesem 
Teil hat CHESS 7.0 die geringste Spiel- 
stärke. Grund dafür ist die oft große Anzahl 
von Zügen, die nun vorausberechnet wer- 
den müssen, um eine optimale Spielstra- 
tegie zu finden. Im Endspiel kann man sich 
selbst aus einer vergleichsweise ungünsti- 


gen Position oft noch in ein Remis retten 
oder sogar den Sieg erringen. 


Daß CHESS 7.0 durchaus besiegt werden 
kann, zeigt folgende Partie, die ich gegen 
CHESS 7.0 (Weiß) auf Spielstärke C ge- 
spielt habe: (Spielstärke C bedeutet 
durchschnittliche Rechenzeit pro Zug laut 
Handbuch 1-10 Min., vorausberechnet 
werden durchschnittlich 3-5 Halbzüge) 


1. b3 Si6 2. Lb2 d5 3. 14 Lf5 4. Sf3 e65. 
Sh4 Lg6 6. Sg6: g6: 7. e3 Sbd7 8. Le2 
De7 9. Sc3 0-0 10. 0-0 De8 11. Sb5 Lc5 
12. d4 Lb6 13. Dd3 a6 14. Sc3 ThA 15. a4 
Dh8 16. a5 La7 17. h3 Dh6 18. Sdi Th8: 
19. h3: Dh3: 20. Tei Th8 21. Sf2 Dg3+ 
22. Kf1 Th2 23. Sdt Dg2++ 


Möchte man eine Partie nicht zu Ende 
spielen, so kann man den Zwischenstand 
auf einer Diskette abspeichern und zu ei- 
nem anderen Zeitpunkt weiterspielen, 
oder man läßt das Programm gegen sich 
selbst zu Ende spielen. Hat man genug 
vom Schachspiel gegen den Computer, so 
sollte man sich einen menschlichen 
Spielpartner (oder eine Spielpartnerin) su- 
chen und CHESS 7.0 als reines Schach- 
brett und Protokollant für die Zugfolge be- 
nutzen. Wer Briefschach vorzieht, hat im 
Modus P die Möglichkeit, eine Stellung mit 
einer Rechentiefe von bis zu 23 Halbzü- 
gen analysieren zu lassen. 


3. Analyse von Spielstellungen 


Um nähere Informationen über die Spiel- 
stärke von CHESS 7.0 zu erhalten, wur- 
den dem Programm mehrere Spieistellun- 
gen vorgegeben, für die CHESS 7.0 den 
nächsten Zug berechnen sollte. Es han- 
delte sich dabei um Problemstellungen, in 
denen es nur einen optimalen Folgezug 
gibt, der auch für einen sehr guten Tur- 
nierspieler nicht unbedingt leicht zu finden 
ist. 
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1. Analyse (s. Abb. 1): Partieschluß Rodtri- 
guez-Miyasaka (gespielt 1972 in Skopje). 
Obwohl Miyasaka (Schwarz) drei Bauern 
mehr hatte, war seine Stellung so unter- 
entwickelt, daß er von Rodriguez (Weiß, 
am Zug) in vier Zügen matt gesetzt wer- 
den konnte. 


Für die Lösung solcher Matt-Aufgaben be- 
sitzt CHESS 7.0 den Modus M, in dem die 
einzige richtige Lösung Te6:+ nach etwa 
40 Minuten gefunden wurde. Aber auch in 
den Modi 6 (nach ca. 3 Min.), 7 (ca. 5 
Min.), 8 (ca. 10 Min.), C (ca. 10 Min.), D, E 
und F (jeweils ca. 48 Min.) wurde die richti- 
ge Lösung gefunden. 
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Abb. 2 


2. Analyse (s. Abb. 2): Matt-Aufgabe (in 
drei Zügen) von F. Metzenauer (Al Ha- 
mishmar, 1965). 

Die einzige richtige Lösung La3 wurde im 
Modus M bereits nach weniger als 9 Minu- 
ten gefunden, was selbst für einen profes- 
sionellen Löser von solchen Schachpro- 
blemen angesichts der Schwierigkeit die- 
ser Aufgabe eine gute Leistung wäre. Die 
Spielstufen bis 8 und A bis C waren mit 
dieser Stellung allerdings überfordert und 
entschieden sich für Lei, Sd2+ bzw. Lc3. 
Lediglich mit den Spielstufen D (ca. 68 
Min.), Eund F (jeweils ca. 147 Min.) wurde 
die richtige Lösung gefunden. 
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3. Analyse (s. Abb, 3): Partieschluß Platz- 
Just (gespielt 1972 bei den DDR-Meister- 
schaften). 

Ein Härtetest für CHESS 7.0, denn in die- 
sem Fall besteht die optimale Lösung dar- 
in, daß Weiß (am Zug) den Gegner in acht 
Zügen matt setzt. Mit keiner einzigen 
Spielstufe wurde der optimale Zug Dh7:+ 
gefunden, sondern es wurde der weniger 
günstige Zug Sh6+ bzw. Te4: gewählt. Im 
Modus M wurde nach 2 1/2 Tagen die bis 
dahin erfolglose Suche abgebrochen. 
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Abb. 4 


4. Analyse (s. Abb. 4): Matt-Aufgabe (in 
vier Zügen) von F. Köhnlein (Münch. Neu. 
Nachr., 1903). 

Die Lösung dieser Aufgabe besteht in ei- 
ner Folge von Figurenumwandlungen (1. 
180 z.B]... 2Kb4 2.nalekes 3,P8 Hl Kae 
4. e8S++). An dieser Stellung ist CHESS 
7.0 gescheitert, da Unterumwandlungen 
von Figuren (z.B. in einen Springer) nicht 
berücksichtigt werden. Deshalb wurden 
von allen Spielstufen (einschließlich M) 
nur Lösungen gefunden, die zu einem 
Matt in fünf (oder mehr) Zügen führten. 


Eine Reihe weiterer Analysen mit Spiel- 
stellungen, bei denen es genügte, vier bis 
sechs Halbzüge vorauszuberechnen, um 
einen optimalen Zug zu finden, zeigte, daß 
CHESS 7.0 durchaus in der Lage ist, ein 
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„Matt in zwei oder drei Zügen“ zu finden. 
Dies wurde nicht nur mit der Spielstufe M, 
sondern oft schon auf den Spielstufen 6-8 
und C-F erreicht, wenn bei dieser Rech- 
entiefe bereits eine optimale Zugfolge er- 
sichtlich war. 


Fazit 


CHESS 7.0 ist vor allem ein Schachpro- 
gramm für den (fortgeschrittenen) Hobby- 
spieler. Er kann durch Spiele gegen 
CHESS 7.0 seine Spielstärke durchaus 
noch verbessern, da er v.a. lernt, Fehler zu 
vermeiden, die zu (unnötigen) Figurenver- 
Iusten führen. Unterstützung findet er da- 
bei durch eine Reihe von Programm-Fea- 
tures wie z.B. der Möglichkeit, (schwache) 
Züge zurückzunehmen oder Zugvorschlä- 
ge und Bewertungszahlen für die jeweilige 
Stellung abzurufen. 


Ältere Peeker-Hefte 


können für DM 6,50 pro Heft 
zuzüglich Versandspesen ange- 
fordert werden. Vergriffene 
Hefte sind als Photokopien 

für DM 10,- pro Heft erhält- 
lich. Mindestbestellmenge 

2 Hefte. 


Dr. A. Hüthig Verlag - Heidelberg 
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Der elektronische 
Buchhalter 


Test des Buchhaltungsprogramms BUCH 


von Dagmar Berberich 
1. Notwendige Hardware 


Die Firma Röntgen-Software hat 
mit ihrem Buchhaltungsprogramm 
BUCH ein professionelles Buch- 
haltungssystem erarbeitet, das im 
folgenden Testbericht vorgestellt 
werden soll. BUCH läuft auf Apple 
II+/e/c und Kompatiblen und auf 
IBM-Geräten und Kompatiblen. 
Für Benutzer eines IBM XT erläu- 
tert ein Anhangskapitel die Buch- 
haltung mit Festplatte. Folgende 
Konfiguration ist notwendig: 2 Dis- 
kettenlaufwerke oder 1 Harddisk 
und 1 Diskettenlaufwerk sowie ein 
Drucker zur Datenausgabe. 


2. Das Programm 


Vor Beginn der praktischen Arbeit 
wird zunächst eine Sicherungsko- 
pie der Programmadiskette erstellt, 
Aus Copyright-Gründen kann die- 
se Kopie nicht zum Buchen ver- 
wendet werden; sie wird nicht als 
Originaldisk anerkannt. Im Falle ei- 
nes Defektes kann die zerstörte 
Programmdiskette damit jedoch 
wiederhergestellt werden. Danach 
wird aus dem Eingangsmenü 
„Backup“ der Punkt N angewählt 
und eine Datendiskette angelegt, 
auf die später die Buchungssätze 
geschrieben werden. Mit „a“ 
kehrt man aus dem Backup-Menü 
zur Buchhaltung zurück. 


2.1. Initialisierung 


Die Initialisierung der Buchhaltung 
erfolgt über die Festlegung der 
Jahreszahl und des aktuellen Ta- 
gesdatums (Erstellungszeitpunkt). 
Danach erscheint das Buchhal- 
tungsmenü (Hauptmenü), aus dem 
heraus alle weiteren Arbeitsschrit- 
te angewählt werden. Beim Erstge- 
brauch werden zunächst die ver- 
schiedenen, frei wählbaren Konten 
entsprechend dem bestehenden 
Kontenrahmen des Unternehmens 
angelegt. Wahlweise können Kon- 
tennamen oder Kontennummern 
angegeben werden. 
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Die verschiedenen Buchhaltungs- 
konten werden in übergeordneten 
Kontenklassen zusammengefaßt. 
Die jeweilige Kontenklasse jedes 
Kontos wird durch die ersten Zei- 
chen des Kontonamens festgelegt; 
eine Unterscheidung verschiede- 
ner Konten einer Kontenklasse er- 
folgt durch die Namensanhänge, 
die dem Kontokürzel folgen. 

(Bsp.: Kürzel aller Anlagekonten 
istdas „%"-Zeichen, die verschie- 
denen Anlagekonten heißen dem- 
nach z.B. %Kfz, %Lagerhalle, 
% Maschinen usw.) 


Folgende verschiedenen Konten- 
klassen und programminternen 
Abkürzungen werden in BUCH 
verwendet: 

Geldkonten (Kürzel: POST, BANK, 
KASSE) umfassen alle liquiden 
Mittel, z.B. Kasse, Bank, Post- 
scheck usw. 

Anlagekonten (Kürzel: %): dazu 
zählen alle abgeschriebenen Ma- 
schinen, Gebäude usw., also alle 
Sachmittel. 

Debitorkonten (Kürzel: $ oder DE- 
BIT): Konten, die Forderungen 
enthalten. 

Creditorkonten (Kürzel: # oder 
CREDIT) enthalten die eigenen 
Verbindlichkeiten. 

Erloese (Kürzel: ERLOESE) ent- 
hält alle Erträge, die Mehrwertsteu- 
er enthalten. 

Mehrwertsteuerkonto (Kürzel: 
MWST): alle Umsatzsteuerbeträge 
der ERLOESE-Konten werden auf 
dieses Konto gebucht. 
Vorsteuerkonto (Kürzel: VOR- 
STEUER): Alle Umsatzsteuerbe- 
träge der Ausgaben laufen auto- 
matisch auf dieses Konio. 
Privatkonten (Kürzel: PRIVAT) ent- 
halten Privatentnahmen und Privat- 
einlagen. 

Erfolgskonten (Kontennamen ohne 
vorangehendes Kürzel): hier wer- 
den Erträge und Aufwendungen 
verbucht. 

Gewinn- und Verlust-Konto (Kür- 
zel: G&V): Konto, auf dem alle 


Ausgaben und Einnahmen bei der 
Gewinn- und Verlust-Rechnung 
verbucht werden. 

Sonderkonten (Kürzel: &): alle 
Konten, die nicht in die übrigen 
Kontenklassen einzuordnen sind. 


Die Kennzeichnung der verschie- 
denen Kontenklassen kann auch 
nach eigenen Vorstellungen um- 
definiert werden. 


Bei der Konteneröffnung werden 
vom Programm der Kontoname 
bzw. die Kontonummer und die 
Überträge von Soll und Haben (bei 
Fortsetzung der Buchhaltung auf 
einer neuen Diskette) erfragt und 
nach eventuellen Korrekturen ab- 
gespeichert. Werden keine weite- 
ren Konten mehr angelegt, kehrt 
man ins Hauptmenü zurück. Wer- 
den Kontennummern (max. 4stelli- 
ge Angaben) gewählt, ist ein Aufruf 
des Kontos wahlweise über die 
Angabe seines Namens oder sei- 
ner Nummer möglich. 


2.2. Buchungen 


Die eigentlichen Buchungsvorgän- 
ge werden über Punkt B des 
Hauptmenüs angewählt. Das Pro- 
gramm lädt die eingegebenen 
Konten in den Speicher und er- 
stellt ein Buchungssatzformular, 
das für jeden Buchungssatz aus- 
zufüllen ist. Darin werden für jede 
Buchung Tag, Monat, Belegnum- 
mer, Buchungstext, die angespro- 
chenen Konten, der Betrag und 
der Umsatzsteuersatz eingeitra- 
gen. Bei fortlaufenden Buchungen 
werden die Belegnummern auto- 
matisch erzeugt; sie können je- 
doch auch vom Benutzer eingege- 
ben werden. Vor der Absicherung 
der Buchungssätze können Kor- 
rekturen durchgeführt werden, 


Sehr nützlich ist die Möglichkeit, 
sich zusätzlich zur Maske des Bu- 
chungssatzes eine Liste aller eröfl- 
neten Konten auf dem Bildschirm 
anzeigen zu lassen. 


Beträge, die inklusive Umsatzsteu- 
er gebucht werden, müssen mit 
einem vorausgehenden Minuszei- 
chen eingegeben werden; das 
Programm berechnet dann auto- 
matisch die im Betrag enthaltene 
Steuer und belastet das entspre- 
chende Steuernkonto damit. Net- 
tobeträge werden entsprechend 
ohne Vorzeichen eingegeben. 
Einnahmen müssen über das Kon- 
to „Erloese“ laufen, damit die 
Mehrwertsteuer richtig verbucht 
wird. Bei anderen Konten wird die 
Umsatzsteuer automatisch als Vor- 
steuer verbucht. 


In einem Buchungssatz können 
max. 49 Buchungen aneinander- 
gereiht werden. Nach dem Ende 
der Buchungseingaben werden al- 
je Buchungen nach dem Datum 
geordnet und auf dem angeschlos- 
senen Drucker ausgegeben. Vor- 
gemerkte Buchungen werden im- 
mer ausgedruckt. Diese Ausdruk- 
ke gelten als Belege für vorgenom- 
mene oder korrigierte Buchungen. 
Die Geldbewegungen auf den 
Geldkonten Kasse und Bank wer- 
den registriert und die Gesamiver- 
änderung zur Nachkontrolle mit 
ausgegeben. Jetzt können noch- 
mals Fehler in den Buchungssät- 
zen korrigiert werden, bevor sie 
endgültig auf Diskette geschrieben 
werden. 


2.3. Betriebsübersicht 


Werden keine weiteren Buchun- 
gen gewünscht, kann aus dem 
Hauptmenü der Punkt „Betriebs- 
übersicht" angewählt werden. 
Nach Eingabe des Anfangsmonats 
liefert das Programm eine Über- 
sicht bis zum aktuellen Datum, in 
der Verbindlichkeiten, Forderun- 
gen, Erträge, Aufwendungen, An- 
lagevermögen und Geldbestand 
aus allen Konten und Buchungen 
errechnet und dargestellt werden. 
Ausgabemedium ist wahlweise der 
Bildschirm oder der angeschlosse- 
ne Drucker. Nach einem beliebi- 
gen Tastendruck wird eine Um- 
satzsteuerberechnung für den ge- 
wählten Zeitraum erstellt, in wel- 
cher der steuerpflichtige Umsatz 
mit vollem und halbem Steuersatz, 
die direkt gebuchte Mehrwertsteu- 
er, Vorsteuer und Kürzungsbeiträ- 
ge aufgeführt werden. Daraus wird 
die Umsatzsteuerschuld errech- 
net. Nicht berücksichtigte Umsatz- 
steuerbuchungen (Vorsteuer, Ha- 
ben und Mwst, Soll) werden ge- 
trennt aufgelistet. 


Um eine umfangreiche Darstellung 
aller Kontenbewegungen zu erhal- 
ten, wird die Option S aus dem 
Hauptmenü gewählt. Wählt der Be- 
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Toolkit I: System Utilities: Club- 
preis DM 118,-, Normalpreis DM 
148,- (lieferbar) 


Toolkit Il: Mouse Text: Clubpreis 
DM 118,-, Normalpreis DM 148,- 
(lieferbar) 


Toolkit VI: Turtle Graphics: 
Clubpreis DM 68,-, Normalpreis 
DM 88,— (lieferbar) 


Toolkit Ill: Advanced Graphics: 
Clubpreis DM 118,-, Normalpreis 
DM 148,- (lieferbar) 


Toolkit V:. Mouse Graphics: 
Clubpreis DM 158,-, Normalpreis 
DM 198,- (in Vorbereitung) 


Toolkit VI: Code Optimizer: 
Clubpreis DM 298,-, Normalpreis 
DM 348,- (lieferbar) 


KIX: Clubpreis DM 98,-, Normal- 
preis DM 118,- (lieferbar) 


Kyan-Ordner: Leerer Ordner für 
Utility-Anleitungen, DM 19,- 


Alle Utilities werden als teils beid- 
seitig bespielte Disketten geliefert, 
die neben den Include-Files (meist 
Quelltexte) diverse Demos enhal- 
ten. Die Anleitungen selbst sind 
Loseblattlieferungen (z.B. bei den 
System Utilities 52 Druckseiten), 
die für den grauen Ordner von 
Kyan 2.0 bestimmt sind. Zum 





nutzer auf die Frage „Nur Summen 
(J/N)“ ein N, so erhält er ab dem 
eingegebenen Eingangsmonat ei- 
ne Übersicht über die Kontenblät- 
ter aller geführten Konten. Mit dem 
Befehl „Konto ausgegeben" ist die 
gleiche Kontenübersicht für jedes 
einzelne Konto abrufbar. Das Kon- 
toblatt enthält alle Buchungen des 
jeweiligen Kontos. 

Wird nur die Ausgabe der Summen 
gewünscht, erhält man eine Über- 
sicht mit den Salden aller Konten. 


Das Journal wird auf der Datendis- 
kette im Laufwerk 2 als Datei abge- 
speichert. Nach Eingabe von „J" 
im Hauptmenü kann es mit sämtli- 
chen darin befindlichen Buchun- 
gen auf Drucker oder Bildschirm 
aufgelistet werden. Für jede Bu- 
chung werden Nummer, Datum, 
Erläuterungstext , Betrag, Prozent- 
satz der Umsatzsteuer und die an- 
gesprochenen Konten dargestellt. 


Die Gewinn- und Verlust-Rech- 
rung bucht die Salden aller 
Erfolgskonten auf das Gewinn- 
und Verlustkonto; sie wird üblich- 
erweise nur am Ende des Ge- 
schäftsjahres aufgerufen. Da die 
Gewinn- und Verlust-Rechnung 
durch explizite Buchungen das 
Journal erweitert, fragt das Pro- 
gramm vor der Durchführung 
nochmals nach, ob alle Konten im 
Journal abgeschlossen werden 
sollen. 

Nach Eingabe des Buchungstages 
wird die Gewinn- und Verlust- 
Rechnung durchgeführt und auf 


Peeker 1/87 





Club-Preis werden nur Mitglieder 
des Kyan-Clubs beliefert, 


Toolkit I: System Utilites 

Diese Utilities decken verschiede- 
ne Bereiche ab: 

Routinen für ProDOS-Funktionen, 
18 Treiberroutinen für Maus und 
Joystick, diverse Routinen zur 
Bildschirmsteuerung (Scrollen, 
Tab, Inverse etc.), Routinen zur Er- 
zeugung von Zufallszahlen, Zah- 
lenkonvertierungsroutinen: Real- 
String, String-Real, Integer-String, 
String-Integer, Routinen zum al- 
phabetischen und numerischen 
Sortieren und Mischen von bis zu 
5 Dateien, Line Parsing Routine. 


Toolkit Il: Mouse Text 

Diese Utilities umfassen mehrere 
Dutzend Befehle für Fenstertech- 
nik, die Ihre Kyan-Pascal- und As- 
semblerprogramme um Macintosh- 
ähnliche Features erweitern. Im ein- 
zelnen bietet Mouse Text Cursor- 
Befehle, Interrupts, Menü-Befenhle, 
Kontrollbefehle und spezielle Be- 
fehle zur Erstellung und zum Ar- 
beiten mit Bildschirmfenstern. 


Toolkit Ill: Advanced Graphics 
Dieses Toolkit besteht aus den 
beiden Modulen Graphics Primiti- 


Drucker oder Bildschirm protokol- 
liert. Die Buchungen werden in das 
Journal abgespeichert. 


3. Handhabung 


Der gesamte Programmablauf ist 
über Menüpunkte des Hauptme- 
nüs ansteuerbar. Deshalb ist die 
Handhabung des Programms sehr 
einfach und auch für Anwender, 
die bisher wenig oder gar nicht mit 
Buchhaltungsprogrammen gear- 
beitet haben, schnell zu erlernen. 
Alle Eingaben von Benutzerseite 
aus sind in Groß- oder Kleinschrift, 
mit oder ohne Leerzeichen mög- 
lich. 

Allerdings wünscht man sich 
manchmal ein etwas besser aufge- 
arbeitetes Ausgabeformat, bei dem 
die einzelnen Tabellenspalten 
übersichtlicher voneinander ge- 
trennt und besser hervorgehoben 
waren. 


Das etwas unprofessionell anmu- 
tende, spiralgeheftete Manual be- 
steht aus einem 71seitigen Aus- 
druck eines NLO-Druckers im 
DIN-A-4-Format. Leider beein- 
trächtigen sprachliche Mängel das 
ansonsten recht ordentliche Manu- 
al: „Menu“ und „formattierte Dis- 
Ketten“ sind im Handbuch nahezu 
durchgehend vertreten. 

Das Manual ist in drei Hauptab- 
schnitte gegliedert. 

Auf 30 Seiten wird zunächst eine 
ausführliche Einführung in den 
Umgang mit dem Programm gege- 
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ves und Advanced Graphics. Gra- 
phic Primitives enthält Assembler- 
prozeduren und -funktionen für In- 
itialisierungsbefehle, Graph-Port- 
Befehle, Grundfunktionen zur Er- 
zeugung grafischer Darstellungen 
(Linien, Rechtecke, Flächen zeich- 
nen usw.) und Textbefehle. 
Advanced Graphics bietet Befehle 
zur Erstellung dreidimensionaler 
Grafik. Sie unterstützen ein- und 
mehrfarbige Grafiken, Ein Objekt 
kann aus einem beliebigen Winkel 
und aus beliebiger Entfernung 
betrachtet und im Raum gedreht 
werden. 


Toolkit IV: Turtle Graphics 
Diese Diskette enthält diverse 
Hires- und Ton-Routinen. 
Verschiedene Turtie-Befehle nut- 
zen die Möglichkeiten der Turtle- 
Grafik, 4 Prozeduren erzeugen un- 
terschiedliiche Geräuscheffekte. 
Erstellung von Balkendiagrammen 
dienen die Prozeduren Bar-Chart, 
Pie-Chart und Plot-x-y. 


Toolkit VI: Code Optimizer 

Der Code Optimizer macht den 
vom Pascal-Compiler erzeugten 
Code wesentlich schneller und 
kürzer. Er optimiert den compilier- 
ten Assembler-Quellcode so, daß 
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ben, bei der alle Unterpunkte des 
Hauptmenüs erläutert werden. Im 
zweiten Hauptteil werden auf wei- 
teren 34 Seiten die Kommandos 
nochmals im einzelnen bespro- 
chen, Der letzte Teil befaßt sich mit 
möglicherweise auftretenden Pro- 
blemen und Fehlermeldungen. 
Eine Anleitung, mit der vorgegebe- 
ne Parameter und Systemdefinitio- 
nen verändert werden können, gibt 
dem Benutzer die Möglichkeit, das 
Programm stärker auf die eigenen 
Bedürfnisse abzustimmen. 

Leider fehlt ein Stichwortverzeich- 
nis im Änschluß an das Manual. 


4. BUCH und das 
Finanzamt 


Das Buchhaltungsprogramm 
BUCH entspricht den Regeln der 
ordnungsgemäßen Buchführung. 
Alle Buchungsvorgänge müssen 
korrekt und eindeutig nachvoll- 
ziehbar sein, also schriftlich fest- 
gehalten werden. Dabei ist die 
Form nicht entscheidend; Compu- 
terausdrucke sind ebenso akzep- 
tabel wie herkömmliche Unter- 
lagen. 

Für alle Buchungsvorgänge gilt, 
daß sie nicht nachträglich korrigier- 
bar sein dürfen. Diese Forderung 
wird von BUCH erfüllt. Nach dem 
Abspeichern der Buchungssätze 
auf Diskette ist keine Änderung 
mehr möglich. Fehler, die erst zu 
diesem Zeitpunkt aufgedeckt wer- 
den, müssen durch Stornobuchun- 
gen ausgeglichen werden. 


nur die im Programm verwendeten 
Segmente der Runtime-Library in 
das Quellprogramm eingebunden 


werden; zahlreiche Macroaufrufe 
werden zusammengefaßt. Das so 
entstandene optimierte Assembler- 
programm wird zu einem ausführba- 
ren Maschinencode assembliert. 
Interessant für fortgeschrittene 
Programmierer: Der Code Optimi- 
zer enthält den Quelltext der ge- 
samten Kyan-Pascal Runtime-Li- 
brary. 


KIX 

KIX erweitert das ProDOS-Be- 
triebssystem um eine RAM-resi- 
dente, standardisierte Benutzer- 
oberfläche, die dem UNIX-Be- 
triebssystems ähnelt. 

KIX enthält eine Sammlung exter- 
ner Befehle zur Verwaltung von Di- 
rectories, Files, Disketten und wei- 
tere spezielle Befehle. KIX ist kom- 
patibel mit allen ProDOS-Funktio- 
nen und nahezu jeder auf ProDOS 
basierenden Software. Die KIX- 
Shell stellt die Verbindung zwi- 
schen dem Benutzer, den Benut- 
zerfiles und der Hardware her. Sie 
interpretiert Befehle, ruft die erfor- 
derlichen Arbeits- und Hilfspro- 
gramme auf und arbeitet mit dem 
ProDOS-Kern, dem inneren Teil 
des Betriebssystems, zusammen. 





Selbstverständlich gilt auch bei der 
Buchhaltung mit Buchhaltungspro- 
grammen die Regel „Keine Bu- 
chung ohne Beleg“, d.h. für alle 
Buchungen müssen eindeutige 
Belege vorliegen. 


Am Ende eine Geschäftsjahres 
werden alle Konten und das Jour- 
nal ausgedruckt; diese Buchhal- 
tungsunterlagen sind sorgsam auf- 
zubewahren. 


Ist man im Zweifel darüber, ob das 
zuständige Finanzamt die Form der 
EDV-verarbeiteten Buchhaltungs- 
unterlagen akzeptiert, sollte man 
das anhand von einigen Testaus- 
drucken direkt mit dem Finanzamt 
klären. 


Fazit 


Alles in allem erwirbt man mit 
BUCH ein Buchhaltungspro- 
gramm, das ordentliche Arbeit lei- 
stet und für den professionellen 
Einsatz geeignet ist. BUCH erlaubt 
mit seinen Funktionen „Betriebs- 
übersicht“, „Summen Konten“ 
und der Möglichkeit, den Stand 
einzelner Konten bis zu einem be- 
liebigen Stichtag abzurufen, einen 
guten Überblick über den Stand 
der Buchhaltung. 


Bei einem Preis von DM 660. - 
(inkl. Mwst) für Programmdiskette 
und Handbuch kann es im Ver- 
gleich zu anderen professionellen 
Buchhaltungsprogrammen noch 
als recht preiswert gelten. 
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Der Speedloader 2.0/R 
für Apple Il+/e/c 


Ein Erfahrungsbericht 


von Willfried Wienholt 


In einer Zeitschrift stolperte ich vor 
ca. einem Jahr über eine seiten- 
große Anzeige. Dort wurde der 
Speedloader als ein Programm an- 
gepriesen, das nur DM 59.- kosten 
sollte und Erstaunliches versprach: 


— Lädt über 10x schneller als DOS 
393 

— Sehr einfach im Gebrauch 

— Files können auf die RAM-Karte 
geladen werden 

— Mehrere Files können gleichzei- 
tig geladen werden 

— Filewahl über eingebautes Menü 
möglich 

— Ausführliche Gebrauchsanwei- 
sung 

Soweit die Werbung. Äber was 

stimmt davon? Bei den heutigen 

Preisen für Softwareprodukte kom- 

men doch Bedenken: Nur DM 

59.-, was kann das wohl sein? 

Neugierig geworden bestellte ich 

ein Exemplar gegen Vorkasse über 

Bankanweisung und hielt knapp 14 

Tage später das Erhoffte in den 

Händen. 

Mittlerweile ist ca. ein Jahr vergan- 

gen, und ich möchte im folgenden 

meine Erfahrungen mit dieser Soft- 

ware schildern. 


1. Gegenstand 


Der Speedloader 2.0/R ist ein 
Softwareprodukt, das dem Änwen- 
der erlaubt, seine DOS-3.3-Dis- 
ketten mit einem Schnelladever- 
fahren zu versehen, das Boot- 
bzw. Ladevorgänge erheblich ver- 
kürzt. Zu diesem Zweck werden 
DOS-Files von der jeweiligen 
DOS-Diskette auf eine „Fastboot- 
diskette“ (FB) kopiert, die zusätz- 
lich einen Schnellader enthält. 

Die Lieferung umfaßte ein Manual 
im Format DIN A5 mit 14 Seiten 
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Umfang und eine beidseitig be- 
schriebene 5.25"-Diskette, die in 
einem Pappkarton gegen Trans- 
portschäden geschützrwurde. 

Die mitgelieferte Systemdiskette 
ist kopiergeschützt. Der Schutz ist 
so ausgefellt, daß bisher alle Nib- 
ble-Kopierer versagt haben. Den- 
noch braucht man keine Bedenken 
zu haben, seine Originaldiskette zu 
verwenden. Im Falle einer Beschä- 
digung (z.B. RESET während des 
Bootvorgangs) sendet man die Sy- 
stemdiskette wieder ein. Das Ma- 
nual weist ganz zu Anfang auf die 
damit verbundene Kostenregelung 
hin. Kürzlich habe ich mir das Ori- 
ginal „abgeschossen“, Es half 
nichts mehr, ich mußte die Origi- 
naldiskette nebst Handbuch ein- 
senden. Knapp zwei Wochen spä- 
ter erhielt ich die Diskette, meine 
alte und zusätzlich eine neue An- 
leitung zurück, und zwar umsonst! 
Die Anleitung hat jetzt 5.25”-For- 
mat und einen Umfang von 21 Sei- 
ten. An vielen Stellen wurde sie 
überarbeitet, Fehler wurden beho- 
ben, inhaltlich wurde aber nichts 
wesentlich Neues hinzugefügt. 


2. Manual 


Das mitgelieferte Manual ist Über- 
sichtlich und ausführlich geschrie- 
ben. Vor der Arbeit mit dem 
Speedloader sollte man es in Ruhe 
lesen. Auf den ersten Seiten be- 
gleitet das Manual den Anwender 
parallel zum Programm durch die 
einzelnen Menüpunkte, Jeder Me- 
nüpunkt wird ausführlich erklärt 
und ist leicht zu verstehen; auf Be- 
sonderheiten des Programms wird 
hingewiesen. An diese Kapitel 
schließen sich Installationshinwei- 
se für die Umwandlung von DOS- 
3,3- und Diversi-DOS-Disketten in 


Fastbootdisketten an. (Diversi- 
DOS gehört zum Lieferumfang des 
Speedloaders.) Möchte man DOS 
3.3 auf eine FB übertragen, hilft ein 
Programm auf der Systemdiskette 
weiter. 

Am Ende des Manuals wird auf 
Besonderheiten unter BASIC ein- 
gegangen, z.B. auf die Bedienung 
des Schnelladers, Fehlerbehand- 
lungen usw. Verschiedene Bei- 
spiele zeigen, wie man das Color- 
Demo-Programm der DOS-3.3- 
Master-Diskette oder die Assem- 
bler MERLIN und BIG MAC in eine 
Fastbootdiskette umwandelt. 


3. Systemprogramm 


Das Systemprogramm ist benut- 
zerfreundlich, denn auch Fehlbe- 
dienungen führen nicht zu einem 
Systemabsturz. Hat man verse- 
hentlich etwas falsch gemacht, ge- 
nügt ein kurzer Blick ins Manual 
und man kann an der Stelle fortfah- 
ren, an der man zuvor steckenge- 
blieben ist. Nach kurzer Eingewöh- 
nungszeit kann man das Handbuch 
ganz zur Seite legen. Jeder Menü- 
punkt des Programms wird von 
zwei Statuszeilen am oberen und 
unteren Bildschirmrand begleitet. 
Die obere Statuszeile gibt Aus- 
kunft über den jeweiligen Arbeits- 
zustand, in dem sich das Pro- 
gramm gerade befindet, während 
die untere Statuszeile dem Benut- 
zer die erlaubten Eingaben bzw. 
bei Fehlbedienung die entspre- 
chende Fehlermeldung anzeigt, 
Alle Angaben erfolgen im deut- 
schen Klartext. 


Die Möglichkeiten des Speedloa- 
ders sind vielfältig: 

Wird eine Diskette mit dem Speed- 
loader initialisiert (Menüpunkt 1), 
dann wird zusätzlich eine VTOC 
(volume table of contents, Inhalts- 
verzeichnis der Diskette) angelegt, 
die ein späteres Benutzen mit 
DOS-Kommandos (SAVE, BSAVE 
etc.) ermöglicht. Der Schnellader 
selbst ist eine Maschinenroutine, 
deren Position im Speicher zwi- 
schen $200 und $B300 frei wähl- 
bar ist. Zusätzlich kann man seine 
FB mit Diversi-DOS versehen; das 
schränkt den Speicherbereich des 
Speedloaders auf $900 bis $8900 
ein. 

Mit der Option COPY (Menüpunkt 
2) werden DOS-Files auf die FB 
übertragen. Durch die Angabe ei- 
ner Startadresse kann der Spei- 
cherbereich eines Binärfiles verän- 
dert werden, sofern dies ge- 
wünscht wird, Ebenso hat man op- 
tional die Möglichkeit, eine 1/O- 
Adresse (zweimal) referieren zu 
lassen. Damit ist es z.B. möglich, 
die LC mit $C081 in den „write- 
enable-Zustand“ zu versetzen und 


dann eine Maschinenroutine (Inte- 
ger-BASIC) in die LC zu laden. 
Bei der Erstellung einer FB wird 
durch den ersten Buchstaben des 
FB-Files festgelegt, wie dieser File 
beim Booten gehandhabt werden 
soll: Ein „.“ läßt den entsprechen- 
den File nicht im Auswahlmenü er- 
scheinen. Die mit einem „#“ ver- 
sehenen Files werden automatisch 
geladen, während die mit einem 
„>" gekennzeichneten Files auch 
automatisch ausgeführt werden. 
Ein File kann mit einem „x*" ver- 
sehen werden. Er wird dann als 
letzter File geladen und ausge- 
führt. Auf diese Weise läßt sich 
z.B. sehr einfach ein „turnkey-Sy- 
stem“ installieren. 

Jederzeit kann man sich den Inhalt 
der Fastbootdiskette oder den CA- 
TALOG der DOS-Diskette mit den 
Menüpunkten 4 (Directory) bzw. 7 
(CATALOG) ansehen. Ebenso 
können Files auf der FB umbe- 
nannt oder gelöscht werden, Ein 
weiterer Menüpunkt gibt Auskunft 
über den noch frei zur Verfügung 
stehenden Speicherplatz auf der 
FB. 


4. Anwendungsbereich 


Für oft benötigte Programme (z.B. 
Assembler wie BIG MAC oder 
MERLIN, Textverarbeitungspro- 
gramme, Utilities oder Nibble-Ko- 
pierer) ist der Speedloader eine 
sinnvolle und praktische Ergän- 
zung. Schnell und effizient werden 
die benötigten Programme nach 
der Konvertierung auf eine FB in 
den Speicher geladen. Zusätzlich 
ist die FB als ganz normale DOS- 
Diskette weiterverwendbar. Natür- 
lich kann man auch sein Lieblings- 
spiel auf diese Weise „speedloa- 
den“. Der Boot- und Ladevorgang 
ist einfach wesentlich schneller, 
bequemer und bei längeren Arbei- 
ten damit auch nervenschonender 
als bei nicht bearbeiteten Dis- 
Ketten, 


5. Nachteile 


Wie überall gibt es auch hier 
Schattenseiten. Die Anzahl der 
FB-Files ist nicht unbegrenzt, son- 
dern auf maximal 15 beschränkt. 
Bei der Arbeit mit dem Speedloa- 
der ist es sinnvoll, sich vorher mit 
Papier und Bleistift zu überlegen, 
was auf die FB soll. Durch die rela- 
tiv langen Filekonvertierungszeiten 
beim Kopieren von DOS zur FB 
gerät man schnell aus dem Kon- 
zept. Dieser Zeitaufwand trübt ein 
wenig den sonst so guten Ein- 
druck. 

Der schwerwiegendste Fehler bei 
diesem Softwareprodukt aber liegt 
in der Unveränderbarkeit der ein- 
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mal frei ausgewählten Startadresse 
des Speedloaders. Weil diese 
Startadresse nachträglich nicht 
verändert werden kann, muß für 
eine Neuinstallation des Schnell- 
laders die gesamte Diskette neu 
formatiert werden. Möchte man 
nachträglich ein Programm als FB- 
File deklarieren, muß darauf ge- 
achtet werden, daß der File nicht 
aufgrund seiner Länge mit dem 
Schnellader kollidiert. Das System 
weigert sich sonst beim Bootvor- 
gang strikt, den File zu laden. Ei- 


nerseits ist dies verständlich, da 
der Schnellader sonst während 
des Ladens überschrieben würde, 
andererseits wird beim Kopieren 
nicht auf diese Kollision hinge- 
wiesen. 

Ein nachträgliches Verändern oder 
Löschen von FB-Files ist möglichst 
zu vermeiden, weil dadurch auf der 
Diskette eine Lücke entsteht, die 
nur von einem anderen File ge- 
ringerer oder gleicher Länge auf- 
gefüllt werden kann. (Das Prinzip 
des Schnelladers beruht gerade 








darauf, daß er den entsprechenden 
File „am Stück" als FB-File auf der 
Diskette anlegt.) 


Fazit 


Für DM 59.- leistet der Speedloa- 
der sehr viel. Die Benutzerführung 
ist ausgezeichnet. Die Konvertie- 
rungszeiten sind teilweise relativ 
lang, aber das Ergebnis einer FB 
rechtfertigt diesen Aufwand. Die 
Angaben in der Werbung sind nicht 


Produkte 4.4 


zu hoch gegriffen, sondern halten, 
was sie versprechen. Ällerdings 
sollte sich der Anwender immer 
vorher darüber im klaren sein, wel- 
che Files und auf welche Art er 
seine Dateien auf der FB unterbrin- 
gen will, um eine Kollision mit dem 
Schnellader zu vermeiden. Dann 
allerdings hat er ein Werkzeug ge- 
funden, das ihn bei seiner tägli- 
chen Routinearbeit wirkungsvoll 
unterstützt. 

Bezugsquelle: 

CBWS Productions, Rotterdam 





Wo sind meine Files? 


Test des Programms 
Multi-Disk-Catalog Ill 


von Franz-Josef Hüskens 


Besitzen Sie eine umfangreiche 
Programm- und Datensammlung? 
Durchsuchen Sie des öfteren Ihre 
Disketten nach bestimmten Files? 
Wenn ja, dann sollten Sie sich ei- 
nen Katalog der Disketteninhalts- 
verzeichnisse anfertigen, um lang- 
wieriges sowie disketten- und ner- 
venaufreibendes Suchen in Zu- 
kunft zu umgehen. Der Einfachheit 
halber sollte dies natürlich der 
Computer selbst erledigen. 

Es eignen sich dafür allgemein ge- 
haltene Datenbank-Programme 
wie dBase oder Quickfile. Diese 
Programme haben jedoch den 
Nachteil, daß alle zu speichernden 
File-Daten von Hand eingegeben 
werden müssen. Es gibt allerdings 
auch spezielle Disketten-Biblio- 
tnek-Programme. Diese haben 
den Vorteil, daß die relevanten Dis- 
kettendaten durch das Programm 
direkt von der Diskeite gelesen 
werden. MULTI DISK CATALOG 
III (MDC Ill) von Sensible Software 
ist eines dieser Programme. 


1. File-Klassifikation 


MDGC Ill liest innerhalb weniger Se- 
kunden alle wichtigen File-Infor- 
mationen wie Name, Typ und Grö- 
Be von der Diskette ein. Zusätzlich 
wird die Volumenummer und die 
Anzahl der freien Sektoren gespei- 
chert. Der Benutzer wird vor dem 
Lesen der Diskette aufgefordert, 
jede zu dokumentierende Diskette 
mit einem dreistelligen Identifika- 
tionscode zu versehen. Dieser 
Code muß nicht mit der Disk-Volu- 
menummer identisch sein. Man 
kann also seine Disketten nach- 
träglich mit einem eigenen System 
durchnumerieren. Zusätzlich kann 
für jeden File ein Klassifikations- 
feld, worin der Anwendungsbe- 
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reich (Spiele, Utilities usw.) zwei- 
stellig anzugeben ist, definiert wer- 
den. Anhand einer einzugebenden 
Suchmaske (s.u.) werden dann die 
ausgewählten Files angezeigt und 
die Eingabe der Ordnungselemen- 
te verlangt. Eine Liste von häufig 
verwendeten Programmbereichen 
und deren Klassifikationskürzel 
bietet hierbei Unterstützung. 


2. Listen und Sortieren 


Zum Listen der gespeicherten 
Dateien benutzt MDC Ill eine 
Suchmaske. Hierin können Such- 
Kriterien für die maximal fünf Un- 
terscheidungsfelder, die pro File 
intern angelegt werden, angege- 
ben werden. Anhand dieser fünf 
Kennzeichen erfolgt die Anzeige 






der in der Disketten-Datenbank 
gefundenen Files. 

Das Sortieren aller gespeicherten 
Dateien kann anhand von minde- 
stens einem und höchstens drei 
der fünf Uhnterscheidungsfelder 
vorgenommen werden. So ist es 
z.B. möglich, innerhalb einer Dis- 
kette (spezifiziert durch die drei- 
stellige Identifikation) nach der 
File-Klassifikation und darin nach 
Filenamen zu sortieren. 


3. Ausdrucken 


Mit der List-Funktion können die 
gespeicherten Files angezeigt 
bzw. ausgedruckt werden, wenn 
zuvor PR#1 eingegeben wurde. 
Aufgrund fehlender Steuerroutinen 
für den Drucker wird die Liste der 
Files durchgehend (ohne Format) 


gedruckt. Man kann jedoch mit ei- 
nem eigenen Programm auf die 
gespeicherten „Bibliotheken“ zu- 
greifen und damit u.a. auch eine 
eigene Druckroutine schreiben. Im 
Handbuch zeigt ein dreiseitiges 
Programm-Listing in Applesoft- 
BASIC, wie man dabei vorgehen 
kann. 

Zusätzlich erläutert das Handbuch 
auf vier Seiten die einzelnen Be- 
fehle, stellt auf zwei Seiten das 
Konzept der Suchmaske vor und 
erklärt auf einer Seite, wie man ein 
Treiberprogramm für ein nicht- 
standardisiertes Drucker-Interface 
in MDC Ill einbindet. Ein dreiseiti- 
ges Beispiel zeigt kurz und bündig, 
wie man das Programm benutzt. 
Die Handhabung von MDC III ist 
sehr einfach; das Handbuch reicht 
trotz seiner Kürze voll und ganz 
aus. 


4. Speicherumfang 


Im RAM dürfen maximal 950 
Filenamen und die dazugehörigen 
Daten gleichzeitig gespeichert 
sein. Die „gesammelten“ Files 
können auf einer beliebigen Dis- 
kette in maximal neun sogenann- 
ten „Master Files“ (MF1 bis MF9) 
untergebracht werden. Die Kapazi- 
tät von über 8500 dokumentierba- 
ren Files dürfte für einen „norma- 
len“ Anwender ausreichen. 


Fazit 


Nachteilig ist bei dem Disketten- 
Dokumentationsprogramm, daß 
das Programm nur DOS-3.X-Files 
(3.1 bis 3,3) lesen kann. CP/M- 
und Pascal-Files können genauso- 
wenig gelesen werden wie Pro- 
DOS-Dateien. Damit ist das Pro- 
gramm für den Anwender von 
mehreren Betriebssystemen un- 
brauchbar. 

Der Preis von ca. DM 100,- ist 
unter diesen Umständen etwas zu 
hoch, insbesondere deshalb, weil 
eine bessere Druckroutine wün- 
schenswert wäre. 


65 


LISPAS IIST 











Ein LISP-Interpreter für den Atari ST 


getestet von Kai Oliver Tiffany 





LISPAS II ist ein LISP-Interpreter, der seit Au- 
gust 1986 von der Firma TommySoftware in 
Frankfurt speziell für den ATAR| ST angeboten 
wird. Der Interpreter läuft auf jedem ATARI ST 
mit mindestens 512K und einem beliebigen 
Laufwerk. Bei einem ST mit nur 512K sollten 
jedoch ROMs vorhanden sein. 


1. Die Programmiersprache LISP 


LISP ist eine Programmiersprache, die aus der- 
selben historischen Situation entstanden ist wie 
FORTRAN, das vom Standpunkt der modernen 
Informatik wenig mehr als eine Katastrophe ist. 
LISP ist zwar bis heute fast nur im universitären 
Bereich verbreitet, wird dort allerdings oftmals 
sogar als erste Programmiersprache gelehrt. 
Dies ist nicht zuletzt der enormen und individu- 
ellen Kreativität zu verdanken, die durch LISP 
angeregt wurde: Sowohl die Zahl der impie- 
mentierten LISP-Dialekte als auch die Zahl der 
auf der Grundlage von LISP entwickelten KI- 
Sprachen gehen mittlerweile ins Dreistellige. Es 
wird deshalb ein interessantes Schauspiel ge- 
ben, wenn mit Rechnern der Kapazität des Atari 
ST erstmals Mikrocomputer zur Verfügung ste- 
hen, die LISP-Programmieren sinnvoll erschei- 
nen lassen. Schauspiel deshalb, weil die Mikro- 
computerszene neben der der Großcomputer 
eher bunt zusammengewürfelt ist. 
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2. Der LISPAS-Sprachumfang 


Der Sprachumfang von LISPAS II bietet etwa 
140 Standardfunktionen, die alle fest program- 
miert sind und nicht z. T. in LISP definiert ge- 
bootet werden müssen. Laut Handbuch handelt 
es sich bei LISPAS |} um einen InterLisp und 
FranzLisp ähnlichen Dialekt. Der Benutzer kann 
auf einfache Weise eine Standardfunktion über 
einen eigenen Namen aufrufen, ohne den Um- 
weg über eine selbstdefinierte Funktion zu wäh- 
len, womit man den LISP-Dialekt in großen Tei- 
len ohne Aufwand und Geschwindigkeitsverlust 
an eigene Wünsche anpassen kann. Interessant 
ist, daß es in LISPAS kein „GO in PROG" gibt, 
an seine Stelle tritt eine REPEAT-Funktion, die 
mit beliebig vielen UNTIL-Bedingungen etwa 
die Möglichkeiten des LOOP-Konstrukts der 
Sprache MODULA 2 bietet. Ein Pretty-Printer ist 
fest in die Sprache eingebaut. Selbstdefinierte 
Funktionen können sowohl „nospread" als 
auch „spread“ sein. An die Stelle von „DE“ 
und „DF* tritt in LISPAS „DEFUN“; NLAMB- 
DA-Parameter können einzeln durch QUOTE 
deklariert werden (Ein Beispiel: (DEFUN f ("Text 
xy) ...)). An Datentypen gibt es 32-Bit-Integer 
und beliebig lange Strings. 

Nachteilig zu bewerten ist das Fehlen der Floa- 
ting-Point-Arithmetik. Sie soll jedoch in der An- 
fang 1987 herauskommenden Version LISPAS 
III ST implementiert sein, die allen registrierten 
Benutzern zu Selbstkosten zugeht. 


3. Vom Umgang mit LISPAS 


Da LISP eine sehr interaktive Sprache ist, muß 
die GEM-Schnittstelle hier besonders hervor- 
gehoben werden. Im Gegensatz zum LISP des 
Softwarehauses Metacomco wurde hier der 
Weg beschritten, dem Benutzer das Einarbeiten 
in die GEM-Programmierung durch möglichst 
kraftvolle Befehle unnötig erscheinen zu lassen. 
LISPAS II kann mit Textfenstern, Alertboxen 
und der Menüzeile umgehen. Das Schöne ist, 
daß von der Definition eines Textfensters bis 
zum Bedrucken des geöffneten Fensters nur 
zwei LISP-Befehle benötigt werden. Um bei- 
spielsweise eine neue Menüzeile zu definieren, 
muß nur ein LISP-Befehl gegeben werden. 


Die folgenden vier Beispiele zeigen das sehr 
anschaulich: 


(TEXTWINDOW 'MeinFenster 38 2%) 

(MAPC (WINDOWS) '"CLOSEWINDOW) 

(MAKEMENU '((Titeli Punktl Punkt2 ...) 
(Titel2 u.a) ww )) 

({OKBOX "(Wollen Sie wirklich alles löschen?) 
'(Ja Nein Abbruch)) 


Das Anwählen eines Fensters oder z.B. eines 
Menüpunktes geschieht vom LISP aus über 
LISP-Atome, die gleichzeitig auch als Fensterti- 


tel bzw. Menüpunktinamen erscheinen. Maus- 
aktionen des Benutzers können relativ einfach 
überwacht werden, ohne daß der Event-Mana- 
ger umständlich programmiert werden muß, da 
die Event-Funktionen von LISPAS (KEY- 
STROKE und INTERACT) oft schon den fertigen 
LISP-Code zurückgeben, der z.B. zum Schlie- 
Ben eines Fensters nötig ist. 


Der Interpreter selbst ist 37K groß und stellt den 
gesamten vorhandenen Arbeitsspeicher für 
LISP-Code zur Verfügung. Der Garbage-Col- 
lector von LISPAS macht kein Sweeping, bleibt 
also nicht wie die meisten LISP-Interpreter von 
Zeit zu Zeit für einige Sekunden für „Aufräum- 
arbeiten“ stehen. Der Interpreter ist etwa 15% 
schneller als das als Shareware verbreitete 
ALISP1.>. 


Es gibt 21 Fehlermeldungen, die sämtlich mit 
einer POSTMORTEM-Funktion vom LISP selbst 
abgefangen werden können. Leider ist kein Tra- 
cing möglich, aber mit einer kurzen selbstge- 
schriebenen POSTMORTEM-Funktion, wie sie 
als Beispiel auf der LISP-Diskette mitgeliefert 
wird, kann man z.B. mit einem Tastendruck 
jederzeit das Programm anhalten, lokale Varia- 
blen betrachten und anschließend wieder in das 
LISP-Programm zurückzukehren. 


LISP-Code kann in Textfenstern editiert werden 
(Cut, Copy, Clear, Paste). Unter den Demopro- 
grammen befindet sich auch ein kleines LISP- 
Programm, mit dem das Editieren mehrerer 
Funktionen in mehreren Fenstern erleichtert 
wird. Wählt man in diesem Programm vom Me- 
nü aus HELP, wird eine einfache Art von ELIZA 
geladen, mit dem der hilflose Benutzer einen 
kleinen Schatz von erklärenden Sätzen erfragen 
Kann. 


4. Handbuch und Service 


Das Handbuch ist etwas knapp geraten, dafür 
aber recht übersichtlich. Es gliedert sich in ei- 
nen deutschen und einen englischen Teil. Der 
deutsche Teil enthält neben den alphabetisch 
angeordneten Funktionsbeschreibungen ein 
8seitiges LISP-Wörterbuch, das einige engli- 
sche LISP-Termini erklärt. 

TommySoftware liefert auf der Diskeite einen 
Textfile mit Informationen zum Programm mit. 
Darin wird u.a. darauf hingewiesen, daß die alte 
Version 1.1.0. beim Laden vom LISP aus dem 
Interpreter keine falschen Dateinamen verkraf- 
tet. 


Noch ein Wort zum Thema Service: Neuere 
LISPAS-Versionen werden an Besitzer von LIS- 
PAS II gegen eine Kopiergebühr ausgeliefert. 
Die umfangreichere Version LISPAS III mit 
Floating-Point-Arithmetik, Grafikfunktionen und 
einem LISP-sensiblen Editor wurde für Anfang 
1937 angekündigt. 


5. Urteil 


LISPAS || ist ein brauchbarer LISP-Interpreter. 
Zwar reicht die mitgelieferte Dokumentation 
nicht dazu aus, LISP zu erlernen, aber dafür ist 
LISPAS II durch seine Benutzeroberfläche und 
den LISP-spezifischen GEM-Zugriff ein sehr 
bedienungsfreundliches System. LISPAS II ko- 
stet DM 298,-; dieser Preis scheint mir für 
dieses Produkt durchaus vertretbar. 
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Jürgen Kehrel 


Apple-Assembler 
lernen 


Band 1: Einführung in die 
Assembler-Programmierunc 








Apple-Assembler 
lernen 


von Jürgen Kehrel 


Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 /65C02 


1985, 234 S., kart., DM 38,— 
ISBN 3-7785-1151-3 
Begleitdiskette zu Bd. 1: 
DM 44,— 

ISBN 3-7785-1243-9 


Band 2: Nutzung besonderer 
Apple-Eigenschaften 


1986, 276 S., kart., DM 38,— 
ISBN 3-7785-1170-X 
Begleitdiskette zu Bd. 2: 

DM 44,— 

ISBN 3-7785-1244-7 


Das zweibändige Werk „Apple 
Assembler lernen“ ist ein kompletter 
Kurs in der Assemblerprogrammie- 
rung des 6502 oder 65C02 auf dem 
Apple Il, der nicht da aufhört, wo an- 
dere Einführungen auf „weiterfüh- 
rende Literatur“ verweisen. Starkes 


Peeker 1/87 





6582 












HLBOOBBL 








Gewicht wird auf die praktische An- 
wendung gelegt. Deshalb gehört zum 
Kurs ein vollwertiger 2-Pass Assem- 
bler, der als einer von wenigen die 
erweiterten Befehle der neuen IIc 
und Ile Prozessoren 65C02 verarbei- 
tet und der auch lange Programme 
von mehr als 1000 Zeilen in wenigen 
Sekunden übersetzt. Zu seinen pro- 
tessionellen Eigenschaften gehören 
neben 14 Pseudo-Opcodes, die die 
Arbeit mit Strings und Tabellen zu 
einem Kinderspiel werden lassen, ein 
Zeileneditor mit viel Komfort und die 
Fähigkeit, Quellcode in verschiede- 
nen Formaten zu schreiben und zu 
lesen. Ein interaktiver Debugger und 
Simulator hilft Ihnen, eigene und 
fremde Maschinenprogramme zu 
verstehen. Mit seinen vielfältigen und 
mächtigen Möglichkeiten läßt er Sie 
hinter die Kulissen Ihres Rechners 
schauen. Sie können „sehen“, was 
abläuft, Ihre Vorstellungskraft wird 
angeregt und nicht nur einfach Ihr 
Gedächtnis strapaziert. 


B ger 
u. Simulator 


= 1DU5 x 


FACHBUCHTIP IOj) Hüthig 












NU-BOIZC 


P-Stakus 





Alle Programme sind 100% kompak- 
ter Maschinencode, nicht einfach 
compiliertes Basic. Selbstverständ- 
lich lernt der Leser sämtliche Ma- 
schinenbefehle des Apple und die 
wichtigen Grundalgorithmen. Aber 
auch der Umgang mit den eingebau- 
ten ROM-Routinen wird ausführlich 
geübt. Grafik, Sound Stringverwal- 
tung, Fließkommaarithmetik werden 
ebenso behandelt oder das Zusam- 
menwirken von Applesoft und 
Assemblerprogrammen. 
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Leserbriefe 


Fragen und Antworten 


Hardbreaker für Apple 

Im Artikel „Hardbreaker für Apple 
II+ und Ile“ (Peeker 9/86, S. 34 
ff.) spricht Herr Porten unter Punkt 
3 („Das Programm Hardbreaker“) 
an, daß die LC möglichst blockiert 
werden sollte und verweist dabei 
auf die Schaltung in Abbildung 1. 
Daraus ist aber nur die Eniprellung 
der Tastatur und die Aktivierung 
des NMI zu entnehmen. Ich besit- 
ze einen Kompatiblen mit auf der 
Hauptplatine integrierter LC. Ich 
möchte nicht auf der Hauptplatine 
herumbasteln. Könnte ich das Pro- 
blem dadurch lösen, daß ich eine 
Experimentierplatine in Slot 0 stek- 
ke und DEVICE-SELECT mit +5V 
über einen manuellen Schalter 
verbinde? Ist dabei ein Kurzschluß 
möglich? 

A. Lausch, Hildesheim 


Antwort von W. Porten: 

Wie Sie richtig bemerken, gibt die 
Abbildung 1 nicht die Schaltung 
zum Schutz der Language-Card 
(LC) wieder. Diese Schaltung habe 
ich dem Verlag zusammen mit der 
Schaltung zur Entprellung des 
NMI-Tasters zugeschickt, sie ist 
aber durch ein Versehen nicht ver- 
öffentlicht worden. Die Schaltung 
zum Schutz der LC muß folgen- 
dermaßen aussehen: 

Auf der LC muß der vom Apple- 
SIot kommende DEVICE-SELECT 
unterbrochen werden. Mit einem 
Schalter kann diese Unterbre- 
chung wahlweise wieder über- 
brückt werden, oder es wird die 
Leitung auf der Karle, auf der vor- 
her der DEVICE-SELECT lag, mit 
einem Pull-UP (1k-Widerstand auf 
+5V) auf High gezogen. Es ist da- 
bei aber wichtig, diese Unterbre- 
chung vorzunehmen! Man darf den 
DEVICE-SELECT nicht einfach auf 
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+5V ziehen, da sonst der Treiber 
im Apple beschädigt werden könn- 
te. Da Sie einen Äpple mit auf der 
Hauptplatine integrierter LC besit- 
zen, müssen Sie diese Unierbre- 
chung auch unbedingt auf der 
Hauptplatine vornehmen. Dies 
dürfte, falls Sie einen Schaltplan 
dieses Nachbaus besitzen, jedoch 
einfach sein. Wenn Sie andernfalls 
einfach eine Experimeniierkarte in 
Slot 0 stecken und den DEVICE- 
SELECT dann auf +5V ziehen, 
kann es passieren, daß der Trei- 
ber-IC, welcher den DEVICE-SE- 
LECT generiert, durchbrennt, 


CP/M 3.0 und ALS-Karte 

Im Artikel „CP/M 3.0 beim Apple 
II" (Peeker 11/86, S. 34ff.) bemer- 
ken die Autoren auf S. 40, 2, Spal- 
te, daß der Common-Bereich für 
die ALS-Karte bei $8000 beginnt. 
Ich besitze selbst jedoch eine Ori- 
ginal-ALS-Karte, bei der dieser 
Bereich bei $E000 anfängt. Da ich 
annehme, daß zu dem Test eine 
Z80+-Karte verwendet wurde, so 
bedeutet dies, daß die Z830+-Karte 
(bzw. die verwendete Karte) doch 
nicht 100% kompatibel zur ALS- 
Karte ist! Also kann es durchaus 
vorkommen, daß ein für die ALS- 
Karte geschriebenes CP/M-3.0- 
System oder ein sonstiges Pro- 
gramm nicht auf der Z80+-Karte 
läuft. Dies dürfte insbesondere bei 
Grafik-Anwendungen der Fall sein, 
wie z.B. bei meinem Grafik-Paket, 
das ich unter Turbo-Pascal be- 
nutze. 

Da der Common-Bereich der ALS- 
Karte bei $E000-$FFFF liegt, steht 
dem Programmierer, wenn er auf 
Bank O geschaltet hat, der Apple- 
Bereich $1000-$6FFF (auf den 
Z80-Adressen $8000 bis $DFFF) 
zur Verfügung. Das bedeutet, daß 
man auch, wenn man mit der Z80 
arbeitet, auf den Grafikspeicher 
zugreifen kann. Im Gegensatz da- 
zu muß man, wenn der Common- 
Bereich schon ab $8000 beginnt, 
extra auf die 6502 umschalten. 


+5V e— LI BLOCKIERT 
1k 


Schaltplan zum Schutz der Language-Card 
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Dies kann aber sehr zeitaufwendig 
sein, wenn man z.B. auf einer Hi- 
res-Seite malen will. 1000 Punkte 
gemalt bedeutet dann, daß man 
tausendmal auf die 6502 und zu- 
rück auf die Z80 schalten muß. Das 
von ALS geschriebene BIOS weist 
viele Mängel auf, wenn man es 
z.B. mit dem BIOS für den Basis 
108 vergleicht: 

— ALS nutzt die Möglichkeit der IO- 
Redirektion nicht. So kann man 
das Kommando DEVICE nicht be- 
nutzen, mit dem man jedem physi- 
kalischen Device, z.B. CRT (Bild- 
schirm), V24 (serielle Schnittstel- 
le), PARALL (paralleles Interface) 
die logischen Devices zuordnen 
kann (CONIN:, CONOUT:, AUX- 
IN:, AUXOUT:, LST:). Es ist also 
beispielsweise nicht möglich zu 
sagen, daß der Rechner von nun 
an nicht nur Befehle von der Tasta- 
tur, sondern auch von der seriellen 
Schnittstelle annehmen soll. So 
wäre es auf einfache Weise mög- 
lich, den Rechner z.B. über ein 
Modem oder einen anderen Rech- 
ner zu bedienen. 

— ALS nutzt die Möglichkeit des 
Multi-Sector-IOs nicht. Dadurch ist 
es beim  Basis-108-CP/M-3.0 
möglich, einen ganzen Track in ei- 
ner Umdrehung zu lesen. Wie 
phantastisch dies ist, hat jeder 
schon gemerkt, der auf einem Ba- 
sis unter CP/M 3.0 mit PIP Files 
kopiert hat und danach das gleiche 
z.B. unter CP/M 2.2 tat. 

— Es istnoch eine Menge Speicher 
beim 6502 übrig, der nicht benutzt 
wird. Diesen freien Speicher könnte 
z.B. ein Drucker-Spooler ausnut- 
zen, wie dies beim Basis-108- 
CP/M-3.0 gemacht wird. 

Fazit: Die schönsten Möglichkeiten 
des CP/M 3.0 werden nicht ausge- 
nutzt, weil diese vom BIOS nicht 
unterstützt werden. Schade! 

W. Porten, Köln 


Save-Befehl 

Im gleichen Beitrag wird die Ver- 
wendung des Save-Befehls als 
umständlich beschrieben (Peeker 
11/86, S. 38, Spalte 2). Leider wird 
dies auch im CP/M Plus User's 
Guide (Seite 5-85) bestätigt. Bei 
der Erläuterung des SID-Befehls 
(Seite 5-106) wird jedoch folgende 
Möglichkeit aufgeführt, eine Datei 
von SID aus abzuspeichern: 
Befehle „Wfilespec", „Wfilespec, 
s,f“ Inhalt: „write the contents of a 
contiguous block of memory to 
filespec, s is the start address, f is 
the finish address.” 

Beispiele: „Wa:turbo.com“: Die 
Datei turbo.com wird in Laufwerk 
a: gespeichert, „Wb:test.txt,100, 
300": Der Speicherbereich 100- 
300 wird in Laufwerk b: gespei- 
chert. 


Turbo-Pascal 

Beim ALS-CP/M-3.0 können die 
Prozeduren Blockread und 
Blockwrite nicht verwendet wer- 
den, da Turbo-Pascal direkte 
BIOS-Aufrufe verwendet. Abhilfe 
für Turbo-Pascal 3.0: 

1. Auf eine eigene Diskette folgen- 
de Dateien speichern: 

— CP/M-Systemdateien SID.COM 
und SUBMIT.COM 

— Turbo-Pascal: TURBO,COM 

2. Erstellung der nachfolgenden 
Datei „TURBO.SUB" (z.B. mit 
dem Turbo-Pascal-Editor) 

3. Aufruf durch „SUBMIT TURBO 
[Return] 

4, Die bisherige Datei TURBO. 
COM wird in ALTTURBO.COM 
umbenannt und die neue verän- 
derte Datei als TURBO.COM abge- 
speichert. 

: Name dieser Datei: TURBO.SUB 
: Turbo-Pascal-3.0 BIOS-Patch 


REN ALTTURBO.COM,TURBO.- 
COM 

SID ALTTURBO.COM 
<SI1FEA 

<ED 

<43 

<7 

<1 

<CD 

<D 

<] 

<, 

<SO10D 

<7B 

<3C 

<32 

<5 

| 

<E 

<32 

<11 

5 

<] 

<CD 

<5 

<O 

<C9g 

<, 
<WTURBO.COM 
<GO 


‚ Turbo-Pascal angepasst 


MBASIC und GBASIC 

Neben den Grafikbefehlen funktio- 
nieren leider auch nicht VTAB und 
HTAB sowie alle direkten Zugriffe 
auf Speicheradressen, die in der 
anderen Bank liegen (z.B. Joy- 
stick). 

J. Vievers, Niederkirchen 


Drucker-lnitialisierung unter 
CP/M 2.2 

Ich besitze einen Apple-|I+-kom- 
patiblen Rechner mit einer Apple 
Serial Card plus 80-Zeichenkarte 
und Z80-Prozessor, mit dem ich 
CP/M 2.2 fahren kann. Dabei stehe 


Peeker 1/87 


ich vor folgendem Problem: Kann 
man den Drucker (Epson-FX-80- 
kompatibel) über CP/M mit einem 
bestimmten Zeichensatz, z.B. 
komprimierte Schrift, initialisieren, 
indem man z.B. das AUTORUN- 
Programm patcht, so daß es als 
Stapeldatei für Anwenderprogram- 
me (z.B. Multiplan) benutzt werden 
kann? Oder gibt es eine andere 
Möglichkeit, vor dem Start eines 
CP/M-Anwenderprogramms auto- 
matisch den Drucker mit einem be- 
stimmten Zeichensatz zu belegen? 


T. Hochstetter, Siegburg 


Zweiter Videx-Zeichensatz 

Jörg Bliesener schlägt im Peeker 
6/86, Seite 69 vor, zum Umschal- 
ten auf den zweiten Zeichensatz 
der Videxkarte die Folge „[ESC] (“ 
zu verwenden, Nach meinen Er- 
fahrungen ist dies bei manchen Vi- 
dex-kompatiblen Karten erfolglos, 
weil sie aufgrund ihrer geänderten 
Firmware unter CP/M einige Steu- 
erzeichen nicht erkennen, v.a. die 
CTRL-Z-Kommandos. Dieses Pro- 
blem tritt vorwiegend bei Karten 
ohne Kabel zu Position F14 auf der 
Hauptplatine auf, für deren Betrieb 
vom Hersteller das Firmware- 
EPROM angepaßt wurde. Abhilfe 
kann hier mit einem direkten Zu- 
griff auf das Inversflag der Karte 
geschaffen werden: 

1. DDT starten 

2. Diskette mit WS.COM einlegen 
3. Zeile für Zeile abtippen: 
IWS.COM 

R 

A2AA 

JMP 2EO 

JMP 2E9 


AZEO 
LDA F7FB 
OR 
STAF7FB 
Keil 

LDA F7FB 
ANI FE 
STIAF’FB 
KEI 


TC (CONTROL-C) 

SAVE 66 WSNEU.COM 

Die Version WSNEU.COM schaltet 
jetzt jede Videx-kompatible Karte, 
die wenigstens intern das gleiche 
Inversflag benutzt, beim Start auf 
den zweiten Zeichensatz um und 
beim Verlassen mit „X“ wieder zu- 
rück auf den ersten Zeichensatz. 
D. Rackow, Wunstorf 


Fehler in PRODOS.LIB 

Im Programm PRODOS.LIB im 
Peeker 7/86, Seite 51, steckt ein 
schier banaler Fehler: In den Zei- 
len 976ff. soll ja getestet werden, 
ob BLEN = 0 ist, ggf. soll eine 
entsprechende Fehlermeldung er- 
folgen. Der Test auf Null ist einfach 
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falsch, denn wenn bei der Folge 
„CLC, LDA BLEN, ADC BLEN-+1" 
das Zero-Flag gesetzt wird, heißt 
das lediglich ((BLEN)+(BLEN+1)) 
mod 256 = 0, Im Längenbereich 
bis 32K gibt es 127 mögliche Wer- 
te für die Längenangabe, die eine 
irrtümliche Fehlermeldung produ- 
zieren. Mein Vorschlag für den 
Nulltest, der auch noch ein Byte 
kürzer ist, lautet: 
BSAVEA LDA BLEN 

ORA BLEN+1 

BNE BSAVES5 

LDA #$84 


R. Pfitzer, Murrhardt 


Proportionalschrift 

bei Appleworks 

Mit Appleworks ist es möglich, auf 
dem Imagewriter einen beidseiti- 
gen Randausgleich bei der Propor- 
tionalschrift durchzuführen. Leider 
unterstützt das Änpassungsmenü 
von Appleworks diese schöne 
Möglichkeit nicht bei anderen 
Druckern (in meinem Fall Brother 
HR 15 XL). Wie kann man nun 
Appleworks klarmachen, daß ein 
anderer Drucker auch Proportio- 
nalschrift besitzt — wenn auch mit 
anderen Buchstabenbreiten als der 
Imagewriter? Da ich absoluter Pro- 
DOS-Laie bin, habe ich keine Ah- 
nung, wie man das Problem an- 
geht. Vielleicht können Sie dieses 
Problem in einem Artikel lösen 
oder mir konkrete Hinweise, Lite- 
ratur oder ein kommerzielles Pro- 
gramm nennen, das mir weiterhilft. 
M. Dutige, Hamburg 


Apple-Atari-Kopplung 

Ich bin Apple- und Atari-User (Ap- 
ple Ilc, Atari 260ST) und suche 
eine Möglichkeit der Datenübertra- 
gung von einem Rechner auf den 
anderen (ohne Modem oder Aku- 
stikkoppler). Wer kann mir helfen, 
z.B. mit Software oder einem Bau- 
plan für ein Kabel? 

S. Butz, Ebernburg 

Antwort: Es gibt sowohl für den 
Apple als auch für den Atari ein 
Datenübertragungsprogramm na- 
mens KERMIT, das von amerikani- 
schen Universitäten entwickelt und 
kostenlos erhältlich ist. Für den 
Atari befindet es sich beispielswei- 
se auf den Atari-Entwicklerdisket- 
ten und für den Apple auf diversen 
Public-Domain-Disketten, z.B. von 
Firma W. Muhle, 2105 Seevetal 3, 
Waldwinkel 3. Hardwaremäßig be- 
nötigt man für den Apple eine Su- 
per-Serial-Card sowie ein Verbin- 
dungskabel zur bereits eingebau- 
ten seriellen Schnittstelle des Ata- 
ri-Rechners. Die Peeker-Aufsätze 
und -Programme über den Atari 
werden zur Zeit noch auf diesem 





Wege vom Atari zum Apple über- 
tragen und dann für die Setzerei 
kodiert. 


ProDOS-1.0.1-Patch für 640K- 
Laufwerke mit Ehring-Controller 
- Erweiterung auf ProDOS 1.1.1 
Lassen Sie mich zunächst noch 
einige Anmerkungen zum Patch 
von Herrn Hüneke (Peeker 11/85, 
seite 29ff.) machen. Herr Hüneke 
hat mit seinem Patch alle am Markt 
befindlichen Laufwerkkonfiguratio- 
nen von 1 x 40-Track- über 2 x 40- 
Track- bis hin zu 2 x 80-Track- 
Laufwerken unterstützt und mußte 
aus diesem Grund die ProDOS- 
RAM-Disk opfern. Ohne es genau 
zu wissen, nehme ich an, daß zum 
Einsatz von RAM-Karten (RAM-Er- 
weiterungen > 128K) die Installa- 
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tion der ProDOS-RAM-Disk unum- 
gänglich ist. Damit muß man sich 
derzeit für eine der beiden Alterna- 
tiven entscheiden — entweder 
RAM-Disk oder 640K-Diskette. 
Würde Herr Hüneke auf die Unter- 
stützung der 2 x 40-Track-Lauf- 
werke verzichten, könnte er ohne 
weiteres 1 x 40-(1 x 35) Track-, 1x 
80-Track-, 2 x 80-Track-Laufwerke 
und die RAM-Disk unterstützen. 


Dies geht, weil er sowieso einen 
40/80-Track-Schalter zur Step- 
Umschaltung an den Laufwerken 
vorschreibt. Demzufolge muß ein 
ProDOS-Patch nur noch den „ge- 
wünschten Track“ mit 80 verglei- 
chen, um eine Kopfumschaltung 
vorzunehmen; der Modus „Kopf- 
umschalten bei größer 40 Tracks“ 


ProDOS-1.1,1-Patch für 64ßK-Laufwerke mit Ehring-Controller 


$500B: DB CLD 
208 BE D6 JSR $D6BE 
* $50BAa: 28 DA DE JSR $D6bPp 
* SE 56 D3 STX $D356 
% BB 28 BCS $5934 
* $5BBC: A5 46 LDA $46 
* Ad 85 LDY #595 
* BA ASL 
$56BC: DI BE BNE $58CC 


AC 6F D3 STY $D36F 
* $5ßC1l: CC 56 D3 CPY $D356 


Fö öF BEQ $59D5 
* $5ßcs: AD 56 D3 LDA $D356 
48 PHA 


98 TYA 


$51689: AC F7 DB JMP $DAF7 


+ $51ß8C: EA NOP 
* 28 DB D6 JSR $D6DB 


* 2D 25 DL JSR $D125 


*+*#* Blocktest #=x* 


$56D9: AS 42 LDA $42 
c9 84 CMP #584 
* Bp 94a BCS $56DA 
* A6 47 LDX $47 
* EB 85 CPX #595 
* $56DA: 69 RTS 


*=+ "Track gewünscht" prüfen x** 


* $56DB: AA 3E LDY $3E 

* c9 58 CMP #$59 
* Bß 12 BCS #56F3 
* 48 PHA 

* 98 TYA 

* 4A ASL 

* AA ASL 

* AA ASL 

* aA ASL 

* 89 cy ORA 3$C9 
* 8E EE D6 STA $D6EE 
* $56EC: 8D BO Hp STA $9000 
* 68 PLA 

* 18 CLC 

* 99 #8 BCC $56FB 
* $56F3: 99 88 CB STA $C988, 
a 99 89 Cd STA $C989, 
* E9S 58 SBC #$59 
* $56FB: BA ASL 

* 8D 6F D3 STA $D36F 
* $56FF: 69 RTS 


; Aufruf Blocktest 

; Tracknummer 

;‚ Carry gesetzt: ERR 
; Akku mit Block Nr. 
; low laden 


; Tracknummer 


: Tracknummer 


; Track-Nr. prüfen 
: g8f. SL-Kopf-Un- 
schaltung 


; Test Kommando Nr. 


= 4? 
; Kommando >= 4 
; Block Nr. (hi) 


; = 5? (>1288 BIk) 
‚ Carry gesetzt -> 
Fehler! 


; Slot Nr. x 16 

; Akku = Track gewünscht 
; Track gew. >= 89 

; Slot Nr, gewinnen 

; "Kopfrückschaltung" 

: 69 für Slot 6 

;: /16 = 


; #6 für Slot 6 

; C6 für Slot & 

; 66 

: $cxöß für Slot x 


; immer 
; Kopfunschaltung 

; Motor Aus/Ein 

; "Tack gew." - 89 

; "Track gew." # 2 

; Akku = für 

; "Track gew." >= 80 -> 
; ("Track gew." - BB)*2 
; "Track gew." <= 79 -> 
; "Track gew." = 2 


= 
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entfällt ja. Für 35/40-Track- und 1 x 
80-Track-Laufwerke entfällt eine 
Kopfumwandlung automatisch, da 
„lrack gewünscht“ nie größer 80 
wird. Daraus ergibt sich die Ein- 
sparung der Drive-Tabelle und der 
„Bedienungssoftware“ für die Ta- 
belle, so daß - durch die Speicher- 
platzeinsparung — die RAÄM-Disk 
erhalten bleiben kann. 

Nach dieser Theorie nun auch ein 
praktisches Beispiel, welches ich 
mit ProDOS 1.1.1 durchgeführt ha- 
be. Wenn Sie diesen Patch testen 
wollen, gehen Sie bitte wie folgt 
vor! 


1. ProDOS 1.1.1 booten (Original) 
2. ProDOS 1.1.1 mit „UNLOCK 
PRODOS“ unlocken 


3. ProDOS 1.1.1 mit „BLOAD 





PRODOS,TSYS,A$2000“ laden 

4. Mit CALL -151 den Monitor auf- 
rufen und 

5. ab $5000 alle mit „«" gekenn- 
zeichneten Änderungen eingeben; 
alle anderen Zeilen dienen nur der 


Orientierung und entsprechen 
dem Original. 

6. ProDOS mit „BSAVE PRO- 
DOS,TSYS,A$2000" wieder ab- 
speichern 


7. PoBOS mit LOCK PRODOS" 
991. wieder sichern 

8. ProODOS neu booten. 
Anmerkung: Der Bereich $D6.. 
entspricht $56..(unverschoben)! 
Dieser ProDOS-1.1.1-Patch paßt 
gerade noch in ProDÖS hinein, oh- 
ne die RAM-Disk-Routinen entfer- 
nen zu müssen. Nach Umschal- 
tung meines Laufwerks 2 in den 


40-Track-Modus (SS) arbeitet Pro- 
DOS genauso zuverlässig und feh- 
lerfrei wie mit einem zweiten 2 x 
40-Track-Laufwerk. Da in ProDOS 
1.0.1 von $FEBE-$FEFF noch 
freier Platz vorhanden ist, müßte 
es möglich sein, die Routinen von 
Herrn Hüneke dort unterzubrin- 
gen; ggf. stehen dann ab $FFEC- 
$FFF9 noch einige Bytes zusätz- 
lich zur Verfügung. 

J. Grimm, Zwiesel 


Umwandlung in 
Großbuchstaben bei dBase Il 
Ich bin User von dBase || und habe 
das Problem der Umwandlung von 
Klein- in Großbuchstaben bei der 
Verwendung der GET-Befehle., Die 
Befehlsfolge: 


Leserbriefe zur Peeker-Umfrage 


IBM hat Apple abgelöst 

Kann man den technischen Reizen 
eines IBM-PC und seiner kompati- 
blen Verwandten auch zwiespältig 
gegenüberstehen, so handelt es 
sich dabei doch aufgrund ihrer Ver- 
breitung und Einsatzgebiete wohl 
eher um die Rechnerfamilie, die 
den Apple in seinen vielfältigen 
Einsatzbereichen abgelöst hat. 
Und hier tritt meiner Meinung nach 
die Problematik Ihrer redaktionel- 
len Entscheidung zugunsten des 
Atari zutage. Peeker verband bis- 
her sehr gelungen professionelle 
Anwendung und Hobby. Die An- 
wendbarkeit von Atari-Program- 
men und Rechnerinterna in mei- 
nem zukünftigen Berufsleben als 
Ingenieur in der Industrie ist wohl 
ziemlich begrenzt. Ich möchte Sie 
daher bitten, Ihre Entscheidung für 
Atari noch einmal ausführlicher in 
einem Artikel darzulegen und da- 
bei auch aus Ihrer Sicht einmal 
vertieft darzustellen, was einem 
„Innovationswilligen” Apple-Il+- 
Anwender den Übergang auf den 
Atari schmackhaft machen könnte 
und warum er der IBM-Welt fern- 
bleiben sollte. 

T. Jacobs, Hamburg 


IBM an Schulen 

Ich hatte gehofft, daß sich Ihre 
Zeitschrift in Zukunft auch mit dem 
Betriebssystem MS-DOS beschäf- 
tigen würde. Leider stellte ich bei 
der Lektüre des September-Edito- 
rials fest, daß Ihre Zeitschrift in 
Richtung Atari erweitert wird. Die 
meisten Schulen (Gymnasien) in 
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Nordrhein-Westfalen besitzen 
noch (!) Apple-Computer. Alle 
Neubeschaffungen und Neuein- 
richtungen sind Computer, die 
IBM-kompatibel sind. Für einen 
Atari gibt es von der Düsseldorfer 
Schulaufsichtsbehörde weder Un- 
terstützung noch Zuschüsse. 

Dr. G. Burri, Xanten 


Flexibilität durch Slots 

Auch Sie haben sicher bemerkt, 
daß sich seit geraumer Zeit die 
Tendenz weg von Apple durch die 
Geschäftspolitik dieser Firma er- 
gibt. Trotzdem ist es doch nicht zu 
verstehen, daß eine Zeitschrift, die 
sich dem Apple verschrieben hat, 
nicht längst versucht hat, das Na- 
heliegende zu tun: Über Steckkar- 
ten den Rechner so zu erweitern, 
daß er modernen Standards ge- 
nügt. Der größte Vorteil des Apple 
waren immer seine Slots, die ihn 
erweiterungsfähig machen. Das 
haben Sie anscheinend verges- 
sen. Damit haben Sie den gleichen 
Fehler gemacht wie die Firma 
Apple. 

P. Messing, Lüdenscheid 


Vom Apple zum Atari 

Ich habe die Absicht, mir in den 
nächsten Tagen einen Atari zuzu- 
legen, nachdem ich bisher mit ei- 
nem Apple II+ programmiert habe. 
Ich würde mir daher eine deutsch- 
sprachige Zeitschrift mit einem 
ähnlich hohen Informationsgehalt 
wünschen wie den Peeker für 
Apple-Computer. 

G. Grammel, Wiernsheim 


Atari als Spielgerät 

Der Ausgabe 9/86 des Peeker ent- 
nehme ich, daß sich die Zeitschrift 
für Atari öffnen wird, die MS-DOS- 
Maschinen (IBM und Kompatible) 
dagegen unberücksichtigt bleiben. 
Es ist anzunehmen, daß die Atari- 
Spezies da beginnt, wo wir als Ap- 
ple(r) anfangs der 80er Jahre stan- 
den (ROM entdecken etc.), und 
daß sie den Computer weniger als 
Werkzeug, sondern als Spielma- 
schine und Hobbygerät nutzt, dem 
es Geheimnisse zu entlocken gilt. 
O. Strasser, Kreuzlingen/Schweiz 


Mehr Mac 

Anbei übersende ich Ihnen die 
Umfragekarte, da ich einer der ofi 
so geschmähten Macintosh-Besit- 
zer bin und gern In Ihrer Zeitschrift 
mehr über den Apple Macintosh 
Plus lesen möchte. Ein bißchen 
verwundert mich oft, mit welcher 
Arroganz manche Apple-Il-Besit- 
zer über Mac-Besitzer schreiben. 
Noch nie habe ich einen solchen 
Leserbrief mit dem umgekehrten 
Sinn bei Ihnen gelesen. Ich schrei- 
be doch auch keinem vor, welchen 
Computer er sich kaufen soll, Das 
muß doch jeder mit sich selbst 
ausmachen. Den „besten Compu- 
ter" gibt es halt nicht, und so sollte 
sich jeder kaufen dürfen, was er 
will, 


Ich fände es auf jeden Fall schade, 
wenn sich der Peeker nur als „Ap- 
ple-Ile-Zeiischrift” verstehen 
würde. 

N. Rothhaas, Santiago de Chile 


erase 

store " "tom 

S 10,10 get m picture “I11" 
read 

return 


liefert in der Variablen m bei der 
Eingabe von deutschen Kleinbuch- 
staben keine Großbuchstaben. 

Mit dem Befehl „display memory“ 
kommt als Antwort: 

m (c) ä6Uß 

usw. Wie kann ich dBase dazu be- 
wegen, auch die deutschen Son- 
derzeichen richtig umzuwandein? 
Gibt es wie bei Wordstar eine Ta- 
belle, mit Hilfe derer dBase die 
Umwandlung vornimmt? Kann mir 
ein Peeker-Leser bei diesem Pro- 
blem helfen? 

Ch. Waller, Frankfurt 


Zunächst Iigs behandeln 

Ich bin der Meinung, der Apple II 
ist so ergiebig, daß es der Peeker 
nicht nötig hat, sich opportuni- 
stisch an neuere Rechner zu hän- 
gen. Es gibt schon zuviele Zeit- 
schriften, die sich an jeden Trend 
anhängen und von allem etwas 
und nichts Genaues bringen. 
Schauen Sie sich einmal Chip (die 
Bild-Zeitung unter den Computer- 
zeitschriften), Heft 9/86 zum The- 
ma Apple Ilix an! Wenn nun der 
Apple Ilx oder IIgs herauskommt, 
gibt es für den Peeker viel zu tun, 
Der Peeker sollte sich zunächst 
einmal diesem Thema zuwenden. 
W. Oertling, Neumünster 


Wen unterstützt Apple? 

Ich möchte mich zu einer Sache 
äußern, die Herr Stiehl in letzter 
Zeit öfters in seine Berichierstat- 
tung einfließen läßt: Die Quälerei- 
en und Änstellereien bei der Firma 
Apple. Wenn Apple den Anspruch 
(qualitativ und preislich) erhebt, zu 
der gehobenen Schicht der PCs zu 
gehören, dann sollte man in Mün- 
chen sowohl der Kundschaft als 
auch besonders einem Informa- 
tionsmedium wie dem Ihren entge- 
genkommen und sich nicht selber 
ins Abseits bugsieren. Oder ist 
man bei Apple wirklich so borniert? 
Dieses Thema sollte in einem Er- 
fahrungsbericht Ihrerseits, aber 
auch durch Erfahrungsberichte der 
Peeker-Leser gesondert in einer 
Peeker-Ausgabe aufgegriffen 
werden. 

A, Grün, Krefeld 
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Bewegte 
Appie-Grafik 


DOS Toolkit-Erweiterungen 





1985, 305 S., 6 Abb., kart., 

DM 58, - , ISBN 3-7785-1150-5 
Begleitdiskette DM 48, - 
doppelseitig beschrieben 

ISBN 3-7785-1290-9 

Dieses Buch wendet sich als lehr- 
buchhafter Kurs an alle, die pro- 
fessionelle hochaufgelöste Grafi- 
ken auf dem Apple erzeugen wol- 
len. Der erste Teil beginnt mit ei- 
nem Abriß des Aufbaus der HGR- 
Seiten aus der Sicht des Program- 
mierers. Danach wird das Pro- 
gramm HRCG (HI-RES Character 
Generator, Apple, Inc.) eingehend 
analysiert, und es werden sinnvol- 
le Ergänzungen vorgestellt. 
Schrittweise wird die Nutzung des 
HRCG erarbeitet bis hin zur belie- 
bigen Bewegung eines statisti- 
schen Objekts auf einer der HGR- 
Seiten. 

Der zweite Teil baut auf dem er- 
sten auf und führt über die Defini- 
tion mehrerer Objekte und simul- 
taner Bewegung hin zu einem Ar- 
cade-Spiel, das für die meisten 
kauflichen Action-Spiele in der 
meisterhaften Grafik als Vorbild 
dienen kann. Grundkenntnisse in 
6502-Assembler sollten vorhan- 
den sein. 


L] Schäpers, Bewegte Apple Grafik, 


ISBN 3-7785-1150-5, DM 58, - 


[| Begleitdiskette, DM 48, - 
ISBN 3-7785-1290-9 





[mi Hüthig 


&omputerbücher 


lH | Ama Sc 


ProDOS-Analyse 


Versionen 1.0.1, 102, 1,1,1 








1985, 470 S., kart., DM 68, - 
ISBN 3-7785-1134-3 


„Die ProDOS Analyse“ ist die um- 
fangreichste und detaillierteste 
Darstellung, die jemals ein Apple- 
Betriebssystem erfahren hat. 

Wer die „Innereien“ von ProDOS 
bis zum letzten Byte, z.T. bis ins 
letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das kom- 
plette Betriebssystem (Urlader, 
MLI, Disk-Driver, RAM-Disk-Dri- 
ver und Uhr-Routine) mit Ausnah- 
me des BASIC-SYSTEM wird mit 
umfangreichen Kommentaren 
und Übersichtstabellen disas- 
semebliert. 

Auch die nicht im „Technical 
Reference Manual“ aufgeführten 
Eigenschaften von ProDOS wer- 
den analysiert und beschrieben, 
z.B. die vertrackten eingebauten 
Testroutinen zur Identifikation der 
verschiedenen Apple Il Modelle 
und eventueller Nachbaugeräte. 
Programmierer, die ProDOS ver- 
sionsabhängig „patchen“ möch- 
ten, erhalten hier den genauen 
Überblick, wo was geändert wer- 
den muß, damit dies keine negati- 
ven Konsequenzen hat. 


F 
I 
=— m ——— DB B— | 


[1 Schäpers, Pro-DOS-Analyse 
ISBN 3-7785-1134-3, DM 68, — 








Arne Schäpers, Das BASIC SYSTEM, 1986, ca. 300 S., 
kart., DM 54, — ISBN 3-7785-1407-5 

Sie wollen die erweiterten Möglichkeiten von ProDOS 
und dem BASIC-SYSTEM voll ausnutzen? Nur hier fin- 
den Sie 

BI cas Lesebuch: eine schrittweise Erklärung der Zu- 
sammenarbeit zwischen Applesoft und dem Monitor, 
des Aufbaus der Stringverwaltung, mögliche Umleitun- 
gen der Ein-/Ausgabe und der Eingriffsmöglichkeiten in 
diese Abläufe. Die gezeigten Mechanismen werden 
durch zahlreiche (und sehr kurze) Beispielprogramme 
untermauert; 

I die Analyse: eine minutiöse Sezierung des BASIC- 
SYSTEM zusammen mit der Kommandoschnittstelle zu 
ProDOS. Die Hauptfunktionen (Vektorbehandlung, 
TRACE-Kontrolle, FRE-Kommando, Global Page und 
benutzte Speicherstellen) sind jeweils in eigenen Ab- 
schnitten erläutert, ein kommentiertes Listing schließt 
diesen Teil ab; 

MM Tips & Tricks: die verborgenen Möglichkeiten des BA- 
SIC-SYSTEM („Input Anything“, andere Dateinamen als 
STARTUP, RESET ohne CLEAR), der Aufbau „externer 
Kommandos“. Dieser Teil enthält ein komplettes Rah- 
menprogramm für die Erstellung eigener Kommandos 
sowie die Erweiterung MONITOR, mit der (analog zu DOS 
3.3) die Ausgabe von Kommandos und der Dateiverkehr 
auf dem Bildschirm sichtbar gemacht werden können. 


[Arne Schpers 





[ 


[] Schäpers, Das BASIC-SYSTEM, 
ISBN 3-7785-1407-5, DM 54, — 
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3 starke Bücher für Ihren 


Dieter und Jürgen Geiß 


Logo auf dem Atari ST 


1986, 146S., DM 35, -, 
ISBN 3-7785-1262-5 


LOGO ist die erste Sprache auf 
dem Atari ST. Hier treffen sich 
die hervorragenden grafischen 
Fähigkeiten einer Programmier- 
sprache und die überlegenen 
Leistungen des neuen Rech- 
ners. Das Atari-LOGO unter der 
Benutzeroberfläche des GEM 
verfügt über den zur Zeit größ- 
ten LOGO-Sprachumfang und 
macht vollen Gebrauch von Fen- 
stern, der Maus.als Eingabege- 
rät und den sogenannten Drop- 
Down-Menüs. Dieses Buch zeigt 
das Planen und Schreiben von 
faszinierenden und nützlichen 
Programmen. Das gesamte 
LOGO-System — nämlich Be- 
dienung und Sprache — wird 
vorgestellt. Hier stenen die Ant- 
worten auf Fragen, die im Origi- 
nal-Handbuch offen geblieben 
sind. Der Leser lernt die gesam- 
te LOGO-Sprache mit strukturi- 
erter Top-Down-Programmie- 
rung, Prozeduren, Rekursionen 
usw. Einige beispielhafte Projek- 
te zeigen, daß LOGO weit mehr 
ist als eine anschauliche Lern- 
sprache-für Kinder. 


I[]D.u. J. Geiß, Logo auf dem 
Atari ST, 
ISBN 3-7785-1262-5, DM 35, - 





Hajo Lemcke, Volker Dittmar 
und Michael Sommer 


Programmierlexikon 
für Atari ST 


1986, ca. 5008S., DM 48, -, 
ISBN 3-7785-1412-1 


Wie jedes Lexikon ist auch die- 
ses vollständig nach Stichwor- 
ten sortiert. Im Gegensatz zu ei- 
nem normalen Lexikon findet 
der Leser hier jedoch nicht nur 
eine Beschreibung, sondern 
gleich eine Programmieranlei- 
tung. Ebenso sind mehrere Ta- 
bellen enthalten, die das Auffin- 
den weiterer Stichworte erleich- 
tern und zusätzliche Informatio- 
nen beinhalten. Die meisten an- 
deren Bücher enthalten entwe- 
der eine Dokumentation über 
die GEM-Fähigkeiten des Rech- 
ners oder die Beschreibung der 
einfachen Betriebssystemrouti- 
nen. Hier jedoch findet der Le- 
ser alles. Es gibt nicht nur Hin- 
weise zur Programmierung von 
Dialogboxen, Fenstern oder 
Kommandbinterpreten, sondern 
es werden auch alle systemin- 
ternen Fragen beantwortet. Dies 
umfaßt sowohl die Programmie- 
rung der im Rechner benutzten 
Chips, als auch eine Beschrei- 
bung der Schnittstellen und de- 
ren Benutzung. Es wird auf alle 
grafischen Möglichkeiten des 
ST eingegangen. Gleichgültig, 
ob nach den deutschen oder 
nach den englischen Begriffen 
gesucht wird, es sind alle vor- 
handen und verweisen gegebe- 
nenfalls aufeinander. 


LI! Lemcke, Dittmar und Sommer, 
Programmierlexikon für den 


Atari ST, 
ISBN 3-7785-1412-1, 


U mus | 








aufdem Atari ST 


ProgrammierenunterGEMundTOS 





Software-Entwicklung auf dem Atari ST 
1986, 388 S., DM 54, - , ISBN 3-7785-1339-7 


In diesem Buch findet der ernsthafte Programmierer al- 
les was er braucht, um gute und professionelle Software 
auf dem Atari ST zu entwickeln. 

Der vollständige Arbeitsablauf sowohl in einer C- als 


auch in einer PASCAL-Umgebung wird beschrieben, die 


notwendigen BATCH-Programme zum Compilieren, As- 
semblieren und Linken sind gelistet. 

Das Kapitel 3 beschäftigt sich mit der Entwicklung von 
reinen TOS-Programmen. An dieser Stelle werden so- 


wohl das Betriebssystem und der Aufruf aller GEMDOS-, 


BIOS- und XBIOS-Funktionen als auch die Bedeutung 
der System-Variablen erklärt. 

Kapitel 4 ist das:Herzstück des Buches: die GEM- Pro- 
grammierung. Alle Funktionen der beiden großen GEM- 
Bibliotheken (VDI, AES) werden behandelt. - 
Zwei komplette Sitzungen mit dem Recourse-Construc- 
tion-Set werden in Kapitel 5 dargestellt. 

Im Kapitel 6 werden dem Leser an zwei vollständigen, 
sehr sauber programmierten und kommenitierten Bei- 
spielen mit einigen hundert Zeilen fast alle Probleme vor 
Augen geführt und gelöst, die bei-der Fensterprogram- 


mierung auftreten. Diese Programme können als Muster 
für eigene Applikationen oder Desk-Accessories benutzt 


werden. 


DD. u. J. Geiß, Software-Ent- 
wicklung auf dem AtariST, 
ISBN 3-7785-1339-7, DM 54, — 

DM 48, — 
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